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Foreword 


Many people who play arcade games take them for granted. 
But when you try to program such a game on your 64, you 
quickly learn to appreciate the amount of work and creativity 
behind every game. Characters and sprites on the screen, 
movement, collisions, sounds, and screen displays must be fit 
together into a complex, yet complete, whole. All this can be 
rather intimidating, especially if you're just starting. 

This book takes you step by step through the process of 
designing and then programming a game. The principles and 
techniques of writing arcade games are outlined clearly and in 
detail, including examples from the six complete games 
provided in the book. The 64’s sound, graphics, and sprite 
capabilities are fully demonstrated, and are shown in actual 
programming situations which you can duplicate. 

You'll see how to develop a game from an idea and, using 
examples from successful arcade games, you'll learn what 
makes a good game. Techniques of setting up a playing field 
for your game are shown, as well as how to create the figures 
that will move across the screen. You'll even learn how to make 
the computer control game opponents while the player moves 
a figure with the keyboard or joystick controls. And the 
extras—such as sounds and graphic title displays—are not 
forgotten. As you read through the book, you'll actually create 
your own arcade-style game. 

As with all COMPUTE! books, this guide to creating 
arcade games will be useful not just while you’re writing your 
first game, but again and again. You'll refer to it for more infor- 
mation and more complex game ideas and techniques on the 
Commodore 64 as your skills improve. With this book and 
your creativity and imagination, you'll quickly be developing 
and writing games of a quality you never thought possible. 
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The 64 Is a Game 
Machine 


The best use of computers is playing games. If they can pay 
their own way by doing useful programs like accounting or 
word processing or math, so much the better. But I wouldn't 
care if they couldn’t do any of those ihe as long as they can 
create videogames, worlds that never before existed, where we 
can do things that we might never do anywhere else. 

Flying on giant birds and jousting with lance-bearing 

enemies. 

Saving the world from dozens of species of alien invaders. 

Burrowing through the ground in pursuit of dragons. 

Piloting starships, balloons, biplanes. 

And really crazy things, like wearing a kangaroo suit and 
punching out monkeys, escaping from cute ghosts, climbing a 
rab hag 60) Serpe by homicidal clowns, rescuing a girl 
from a gorilla and then rescuing the gorilla from the rescuer— 

After dumping a few hundred quarters into video arcade 
games, I decided it would be a better investment of my money 
to buy a computer. Then I could play games as often as I liked 
at home, without waiting for other people to finish playing, 
and without having to spend a lot of money before I finally got 
good enough to beat the machine. 

But I had more than convenience in mind. I didn’t just 
want a videogame machine. I wanted to write my own games, 
maybe a game so good that it would end up in the arcade, too, 
among the others that I had enjoyed so many times. 

I started with a VIC-20, and learned the hard way. Trying 
things out, finding out what worked and what didn’t. I kept 
wishing for a single book that would tell me the things I 
needed to know to program games. | didn’t find it. So when I 
finally figured it out, I wrote it myself, and called it Creating 
Arcade Games on the VIC. 

Then I got a Commodore 64. Suddenly I had elbow 
room—enough memory to hold several character sets, sprites 
to make animation and movement easy, new features like 
sic eae characters and sprites, and a screen 40 columns 
wide. 

The basic principles of game design are the same on ali 
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computers. But the techniques for carrying them out differ 
from one machine to the next. Commodore 64 videogamers 
needed their own book on game programming, and with so 
many great features to work with, J had to remind myself that 
I was working as I wrote this book. 

I'm assuming that you're reasonably familiar with the 
basics of BASIC—how to use PRINT and GOTO, FOR-NEXT 
loops and GOSUB-RETURN subroutines. If you aren’t 
comfortable with those, you might want to scan your owner's 
manual, or at least keep it handy in case questions come up 
while you're creating games. What this book provides is the 
specific programming techniques you'll need for game 
creation. 


The Design of the Book 

The place to start in creating a game is planning how you want 
the game to play. So in Chapter 2, you'll design what will 
actually go on between the computer and the player. When you 
have a pretty clear idea of what you want to end up with, it’s 
much easier to get the computer to give you exactly the right 
results. 

Once you have your game in mind, the next few chapters 
will introduce all the BASIC programming tools you'll need. 
How to set up a screen. How to design custom character sets. 
How to make characters move on the screen and how to 
animate them. How to create sprites and move them with the 
joystick. How to set up relationships between different figures 
on the screen. The uses of sounds and how to produce them. 
And how to help the player understand what he’s supposed 
to do. 

Finally, since no one book can possibly include everything 
there is to know, there'll be a list of other books you can use to 
learn even more. 


How to Use This Book 


Try It Out 
Each chapter will include different problems to solve and ques- 
tions to answer. Sometimes you won’t need to actually try the 
sample program—it may be something that you've already 


learned. But there are many things that can’t be explained. 
They have to be shown. And since I won't be leaning over your 
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shoulder while you sit at your computer, the only way I can 
show you is for you to type in example programs or work out 
problems. 

The only way to really learn a programming technique is 
to try it out. In fact, the most helpful thing you can do for your- 
self is to experiment. Once you’ ve tried the example I give you, 
think of problems for yourself and try to solve them using the 
techniques you've just learned. After all, you're learning a 
language—and languages are learned only through practice. 

Besides, the fun of programming isn’t in reading a book— 
it’s in the programming, giving the computer instructions and 
seeing what happens. The point of this book is to help you 
have fun making games, so the more creating you do while 
reading the book, the more value it will have for you. 


Be Patient 

Your learning process won't be just like mine, Some things 
you'll grasp faster than I did; other things may take more 
effort. One thing is for sure—unless you're already an expert 
programmer, programming a game is going to take time. Not 
only the time of typing the program lines in the first place, but 
also the time it takes to figure out why the game isn’t working. 
Because unless you’re a miracle worker, your program is going 
to have some bugs in it, some places where things aren’t 
happening the way you planned. 

So be patient with yourself. Even with the help of this 
book, you can’t expect to learn everything in a few hours one 
night. And don’t expect your first program to run smoothly. If 
you're like me, you'll have more than a few times when you sit 
there staring at some program lines, trying to figure out why 
the program crashes whenever it gets there, only to discover 
that you typed a zero instead of the variable O; or that you 
forgot to have your countdown FOR-NEXT loop STEP -1, so 
it’s only executing once; or that you put the wrong variable as 
the subscript of an array; or that your GOSUB refers to a line 
that you deleted in your last series of revisions. 

That sort of thing happens to everybody. It’s just one of 
the realities of working with a computer. Your 64 will always 
do exactly what you say—not what you really meant to say. 


Look at Other People’s Programs 
In almost every computer magazine there are programs listed 
in full so that readers can type them in and use them. At first 
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those programs look like a lot of gibberish to a beginning 
programmer. But the more you learn, the more those programs 
make sense to you. You can see at a glance what's going on in 
certain subroutines; you can spot where loops begin and end, 
and what they’re accomplishing. 

You can learn quite a bit about programming just by 
typing in other people’s programs. Besides getting typing prac- 
tice, you can see how they solved particular problems. 

You'll notice recurring patterns, techniques you can use. 
But you'll also notice places where they took the Jong way to 
solve a problem, where you know a shortcut. I remember how 
surprised I was to see widely published programs using some 
roundabout, slow methods that I wouldn’t have used. 

Then, when you have their program typed in and saved 
on tape or disk, experiment with it, just the way you'd experi- 
ment with the exercises in this book. If you don’t like the colors 
they used, find where the program assigns the color values 
and change them. If you want a ghost turned into an octopus, 
find out where the program sets up the character set and rede- 
fines the characters. Sometimes your experiments may crash the 
program, but then you can figure out why and do better on the 
next try. 

One of the biggest advantages, you see, is that you have a 
complete program that already works. It’s easier to find out 
and learn from your mistakes when you know that the error 
must be in the two or three lines you changed! 


Write Down Your Ideas 

While you're reading this book, especially after an hour or so 
of steadily working at the computer, you're going to start 
getting some ideas. That's the way creativity works—when 
your mind is working hard on something exciting, the ideas 
start to flow. 

Often it wiil be an idea completely unrelated to the 
problem you're working on at the moment. It might be an idea 
for a special effect, or a game scenario, or a movement 
pattern—anything at all. 

You should write it down. Because once that creative 
mood has passed, it’s often as hard to remember a good idea as 
it is to remember a dream that has slipped away from your 
conscious mind. 

And those ideas are valuable. Not all of them will be 
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fantastic. Some of them may not even work. But game design 
isn’t just programming techniques. There are plenty of excel- 
lent programmers who still can’t come up with a game worth 
spending a single quarter on. Why? They’ve mastered the 
skills, but they don’t know what a player will have fun with. 
Then there are other programmers who are sometimes clumsy 
and disorganized in their programming, but their ideas are so 
good that the players will stand in line to play their games. 

In fact, some videogame manufacturers have recognized 
the difference between game design and game programming, 
and split the jobs. The game designer writes down, in English, 
an exact description of every single thing that happens in the 
game—what happens when you push the joystick up, down, 
left, right; what the button does; what happens when object A 
and object B on the screen collide; how many points each goal 
should be worth; how many seconds or fractions of seconds 
each activity should take; and so on. 

When it’s all there, on paper, then the designed game is 
given to the programmers, who do their best to create a 
program that does exactly what the designer specified. Some- 
times there have to be compromises, because there are some 
ideas that just can’t be executed within the available memory 
or within the available time. And the game is certainly as much 
the creation of the programmer as of the designer, and takes as 
much creativity. 

But it’s a different kind of creativity. And even though | 
can try to stimulate you with this book, I can’t teach you how 
to think up good game ideas the way I can teach you how to 
redefine a character. That’s something you have to develop 
yourself. 

So save every idea you think of. You never know what it 
might lead to. And it’s your ideas more than your program- 
ming skill that will make the difference between run-of-the- 
mill games and great games that people can’t wait to play 
again. 


It Isn't Done When It’s Done 
What happens when you've taken your game from the first 
idea to a working game? All the bugs are out of the program, 
and it works just the way you planned it. What now? 

Well, if you were creating the game just for yourself, and 
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you're satisfied with the way it plays, then congratulations— 
you're finished. 

But if you want to offer the game to commercial software 
houses or to magazines that publish games, then you still have 
a few things to do. 


Test the Game 
Play the game awhile. How fun is it for you? If you’re already 
bored with it, it may need some work. 

Better yet, invite the world’s toughest critics to test the 
game for you. They live right in your neighborhood—any kids 
who play arcade games will do. Tell them you’ve got a game 
you're in the middle of programming, and you need players to 
test it. You probably won’t lack for volunteers. 

Then watch them as they play. Don’t ask questions; don’t 
explain; don’t ask for their opinion. Friends might tell you a 
game is better or worse than it really is—after all, they aren’t 
game designers. Just watch them play, and ask yourself these 
questions: 

1. Where in the game do they get puzzled, confused, 
annoyed? That's exactly where your directions need to 
be clearer. 

2. Are they excited, or at least interested? If they aren't 
enjoying themselves, is it because the game is too easy 
or boring, or is it because the game is too hard and 
frustrating? 

3. How hard is it for them to get the hang of player move- 
ment? How responsive are your controls? 

4, Watch how the scoring goes—are they beating the 
game right away, or getting nowhere? 

5. How long do they play? Is.the game over instantly? 
When it’s done, do they immediately want to play it 
again? The surest sign of a successful game is that they 
don’t want to quit. The surest proof that a game has 
problems is if they come to you within a few minutes 
and ask, “Got any other games?” 


Improve It 

Just because the program runs doesn’t mean the game is 
perfect—it only means the program is perfect. After your own 
tests and the neighborhood-kid tests, what can you think of 
that would make the game more fun, or make it stay inter- 
esting longer? 
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If you can think of some things, analyze your program 
and see how easy it would be to make the changes. If it’s 
feasible, go ahead and try the improvement. But make sure 
you save a couple of tape or disk copies of the program that 
ran correctly, in case your improvements go so far off track that 
it’s easier to go back and start over. 


What You Should Have on Hand 
In writing this book, I’m assuming that you have available 
some basic resources. 

1. A Commodore 64, 

2. A Datassette or a disk drive. After all the work of 
programming, you certainly want to be able to save the 
game and play it again and again. 

3. Commodore 64 User's Guide.It came with your computer. 

4. Commodore 64 Programmer's Reference Guide (published by 
Sams). It’s available at most places that sell the 
computer, and extremely valuable in problem solving. 
(Other recommended books are listed at the end of this 
book.) 

5, Plenty of cassettes or disks to save your programs. If 
you're using cassettes, I suggest that you use a low- 
grade, low-noise tape. They’re cheap and work better 
for computer purposes than high-quality sound 
cassettes. And you'll always want to have some extra 
cassettes on hand, so you can store different versions of 
the same program. All it will take is one time when you 
have to quit in the middle of a revision but don’t have a 
single blank cassette to use. You don’t want to wipe out 
a working program to save a half-finished job—but you 
also don’t want to have to start that job over again. 

6. Graph paper. The best is the kind that emphasizes 8 x 8 
groups of tiny squares, like the example in Chapter 4. 

7. A6-inch ruler. This is very helpful when you're typing 
in a program out of a book. By putting it under the line 
you're typing, you make sure you don’t accidentally 
skip down into another line with similar commands. 

8. A pocket calculator. I know, you have a few bucks 
worth of computer right there in front of you. But many 
times it’s a lot simpler to use a calculator, which is 
designed to do nothing but arithmetic, than to set up 
PRINT statements on the 64 in order to solve a problem. 
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9. A color TV. How are you going to design color games on 
a black and white monitor? I paid only $130 for a used 
19-inch TV with remote control—you don’t have to 
break the bank to see your games in color. 


Introducing the Commodore 64 

If you just got your 64 and aren’t really familiar with it, then 
let's spend a page or two getting acquainted with the machine. 
If you're already familiar with the computer, then you can 
probably skim or skip the rest of this chapter and go right on to 
Chapter 2. 


Memory 

The Commodore 64 comes with 64K. The K stands for kilo- 
bytes, which means 1000 bytes. But that’s a rounded-off 
number. A kilobyte is actually 1024 bytes, and 64K is actually 
64 of those, for a total of 65,536 bytes. 

Human beings count memory in kilobyte units because 
“1000 bytes” sounds pretty close to our usual base 10 
numbering. But the computer only rarely thinks in kilobytes. 
Instead, it naturally groups memory in pages. Each page 
consists of 256 bytes. And a 64K machine contains 256 pages: 
256 times 256 equals 65,536. 

Why is 256 the magic number? It comes from the size of a 
byte. Each byte consists of eight bits. Each bit is either a 0 or a 
1. To the computer, the number 56 is a byte that looks like this: 
00111000. In the decimal number 56, the 6 is the rightmost 
column, the ones column. The 6 means 6. But the 5 is in the 
tens column. The 5 doesn’t mean 5, it means 50. The computer 
also uses columns, but the columns mean different things. The 
rightmost column is the ones column. The next one to the left 
is the twos column. Then come the 4s, 8s, 16s, 32s, 64s, and 
128s. And the numbers you can find in those columns are 
pee oe either a 1 ora 0. Either there is a 64 in the 
number or there isn’t. If there is, there’ll be a 1 in the 64s 
column. If there isn’t, there'll be a 0. 

So the number 00111000 has no 1s, no 2s, no 4s. It has an 
8 and a 16 and a 32. It has no 64s or 128s. When you add up 
the numbers 8, 16, and 32, you get 56. 

Of course, the computer doesn’t have to add up the digits 
of 00111000, any more than you ever think “56 is 6 plus 50.” 
You see 56 and you understand what it means. The computer 
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sees 00111000 and it understands. It has as much trouble 
figuring out 56 as we have figuring out 00111000. 

What is the lowest number a byte can hold? 00000000. 
And what is the highest number? 11111111. That's 
128 +64+32+16+8+4+2+1. It equals 255. 

That's the range of possible numbers that can be contained 
in any one byte of memory. The numbers from 0 to 255. 

Notice that this means a byte can have 256 possible 
values, 0 is as much a number as 255. So even though 255 is 
the highest value that can be contained in a byte, the byte can 
hold a total of 256 possible numbers, including 0. 

Back to the reason why the computer thinks in pages. 
Every byte in memory has an address. That address must be 
expressed in the same numbering system. Fortunately, the 
6510 microprocessor in your Commodore 64 uses two bytes to 
number the addresses. 

The first address in the computer is the two-byte address 
00000000 00000000. The byte on the left is the high byte; the 
one on the right is the low byte. The next address is 00000000 
00000001. {Notice that the first address is 0, and address 1 is 
the second byte in memory. Computer users quickly learn to 
start counting everything with 0. Ask a programmer to count 
off the first eight numbers, and he'll say “0, 1, 2, 3, 4, 5, 6, and 
ve) 

Address 255 is binary 00000000 11111111. (Remember, 
address 255 is the 256th memory location.) Those first 256 
bytes all had the same high byte: 00000000. Therefore, we say 
that they are all in the same page in memory. It is as if computer 
memory were a book with 256 pages (from 0 to 255), and each 
page has exactly 256 words (or bytes), and each word has 
exactly eight letters (or bits). 

That's 256 pages of 256 words each. 65,536 bytes of 
memory, each with its own unique address. Your computer 
can't find any more addresses than that—it can’t think of an 
address higher than 65,535 (remember, we started numbering 
at 0). Your 64 plays a few tricks, however, to squeeze in more 
memory. 

RAM and ROM. But before getting to those tricks, let’s 
distinguish between ROM and RAM. RAM is random access 
memory, and ROM is read only memory. You can use the 
PEEK function to find out what value is stored in the byte of 
memory at any address in the computer. You just say some- 
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thing like PRINT PEEK(65535) and BASIC goes and looks at 

address 65535 and finds out what number is stored there. It 

will always be a number from 0 to 255, because even though 
that location has a two-byte address (11111111 11111111), it is 
only one byte of memory. 

PEEKing a byte doesn’t change what's there—you look, 
but you don’t change it, any more than your reading this book 
changes the letters on the page. So ROM and RAM can both be 
PEEKed. However, ROM cannot be POKEd. POKEing changes 
the value stored in a byte. You can use POKE to change any 
value in RAM: POKE 53281,5. But the ROM memory locations 
are permanent. They contain programs, and if you changed 
them you would wreck the programs. BASIC, for instance, is a 
program stored in ROM. So POKE doesn’t work with ROM, 
except in the case of certain hardware registers, which you can 
POKE in order to give the 64 special instructions. For instance, 
the location 53281] is the register that controls the screen color. 
You can POKE any number from 0 to 15 into that location, and 
the screen color will change accordingly. 

ROM sits on top of RAM. It uses up part of it. The char- 
acter set, for example, is 16 pages of ROM starting at address 
53248. You can't change the numbers stored there. So those 
addresses are effectively closed to you. The area occupied by 
BASIC, the Kernal, the SID sound chip, and the VIC-II video 
chip are likewise unavailable. But don’t worry; you still have 
plenty of memory left to work with. And on special occasions, 
you can even switch out all the ROMs and get at every single 
byte in memory. However, that also switches out BASIC—you 
have to be working in machine language to use all 64K in your 
computer. 

Blocks. The ROM, which you can’t change, is busy 
carrying out all the business of the computer. But there are also 
areas of RAM that are involved with the operating system of 
the computer. For instance, there is an area called screen 
memory, where codes are kept to tell the VIC-II what to display 
in each location on the screen. Chapter 3 is all about how to 
use screen memory. What matters right now is the concept of 
blocks. 

A block of memory is a group of bytes that have a tempo- 
rary special meaning to the computer. Screen memory is a 
block of 1K that maps the screen (and performs some other 
functions with sprites and bitmapped screens). When you turn 
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on the computer it is located starting at address 1024, contin- 
uing to address 2047. (Only the first 1000 bytes are used to 
map the screen.) However, by POKEing a certain code into a 
certain register, you can tell the VIC-II video chip to look for 
screen memory at another location. In effect, you have moved 
the block. You haven’t moved the data in that block, but you 
have moved the place where the computer will look for that 
data. 

The character set is another block. You can tell the 
computer to look for that block in a different place, too. 

However, blocks have certain restrictions. You can’t just 

ut them anywhere. For instance, screen memory has to be 

ocated on an even 1K boundary. That is, the starting address 
of screen memory has to be at an address that is evenly divi- 
sible by 1024. Obviously, the address 1024 is a valid address for 
the screen memory block. So is 0. So is 2048. And 3072, 4096, 
5120, and so on. 

The character set has to start on a 2K boundary. That 
means its starting address must be evenly divisible by 2048. 
Valid starting addresses include 0, 2048, 4096, and 6144. 

The bitmap block must start on an even 8K boundary— 
valid addresses are 0, 8192, and 16384. 

Each sprite pattern block must start on a 64-byte 
boundary, so there are a lot more possibilities: 8192, 8256, 
8320, and 8384 are all legal. 

There are even blocks within blocks. For instance, the 
video memory block has to start on an even 16K boundary. 
There are only four such boundaries possible in the 64: 0, 
16384 (16K), 32768 (32K), and 49152 (48K). The video memory 
block must contain all of the blocks used by the VIC-II video 
chip. This is because the VIC-IL unlike the 6510, can handle 
only 14-bit addresses instead of 16-bit (two-byte) addresses. 
The two highest bits of a two-byte address mean nothing to the , 
VIC-II. You can select which one of the four 16K blocks in the 
computer the VIC-H will use, but you can select only one at a 
time. 

Within that 16K video memory block, you must locate all 
the other blocks related to video. If you move the character set, 
you must put that block on an even 2K boundary within the 
video memory block. Screen memory must be in that block. If 
you use a bitmap, all 8K of it must be in the video memory 
block. 
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When you turn on your 64, the video memory block is 
located at 0. Screen memory is within that block, at 1024. 
(Character memory is not actually in the block, since the ROM 
is at 53248. But the operating system is really fooling itself into 
thinking that the character set is at 10240, which is within the 
block. Don’t worry about why.) However, a lot of other things 
are there. The locations from 0 to 1023 are heavily used by the 
operating system—you can’t play with them or you'll crash the 
computer. Your BASIC program starts at 2048, and starts eating 
up memory fast. If you wanted to put an 8K bitmap there, that 
block could get awfully crowded. So if it gets too crowded, you 
can always select a different block of memory to serve as the 
video memory block, and then use it almost exclusively for 
video. 

If this seems complicated, don’t worry. It is complicated. 
But the more you use the 64, the more natural it'll seem. You'll 
be doing some pretty fancy things with memory before you 
get very far into this book. And you'll be doing it almost pain- 
lessly. I always figure that if it works, it's fine with me— 
whether I understand why or not! 


Screen 

The 64 screen is 40 columns wide and 25 rows from top to 
bottom. That gives you exactly 1000 individually controllable 
locations where you can put characters. There is also a 
bitmapped mode, in which every dof is individually control- 
lable—all 64,000 of them! However, it is impossible to get any 
kind of speed on the bitmapped screen in BASIC, and since 
speed is vital to the arcade-style videogame, we won't be 
working with bitmapped screens in this book. 


Sprites 

The 64 allows eight sprites, which can be moved on the screen 
independent of screen memory. Each sprite takes its shape 
from a completely relocatable sprite shape block—which 
means you can change the sprite’s shape instantly, with a 
single POKE, and its location almost as fast, with two or, 
sometimes, three POKEs. And when it moves across the back- 
ground, the rest of the display is unaffected. This makes game 
programming far easier and more powerful than is possible on 
machines without sprites. However, we'll still go over character 
and screen movement and animation. As you'll see, sprites 
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don’t replace character and screen animation—they merely 
enhance it. 


Colors 

With a color TV or monitor, the 64 can produce 16 different 
colors. However, just as important as the number of possible 
colors is the number of colors you can have on the screen at the 
same time. In standard color mode, you can select different 
colors for every character position on the screen, and a 
different color for each of eight sprites. Also, the background 
and border colors are separately controlled. This means that 
thousands of color combinations are possible. 

In addition, sprites and screens can also be set up in multi- 
color mode, in which your program can display three different 
colors within the same character or sprite, in addition to the 
background color. You won't lack for dazzle in your games, if 
you want it! 


Programmable Characters 

You can redefine the shapes of characters if you want to, and 
sprites have to be defined in order to use them. By careful 
design and planning, you can get almost any shape you want 
to appear on the screen. 


Sound 

The 64’s SID chip is one of its most notable features. You get 
the same kind of sound control available in music synthesizers, 
so that you can get a variety of sounds and sound effects, from 
explosions and lasers to a Bach fugue. Sounds are not really 
extras in a game. They serve several vital purposes, and the 64 
gives you plenty of sound resources to work with. 


Languages 
The 64 has two languages easily available, BASIC and machine 
language. 

Machine language consists of eight-digit binary codes that 
give instructions to the 6510 chip, which is the central 
processing unit (CPU), the real brain of the machine. The 
binary number 10000101 (decimal 133), when it’s read as a 
machine language instruction, tells the CPU to store a certain 
value in a certain location—it works very much like a POKE. 

Since machine language is the CPU's native tongue, so to 
speak, the computer understands it very quickly. That's why 
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games written in machine language are very fast and run very 
smoothly. 

The trouble is that numbers like 10000101 aren‘t too easy 
for human beings to work with. Even when they’re translated 
into hexadecimal (base 16) numbers, they don’t carry much 
meaning. So machine language programmers usually write 
their programs with an assembler program, which uses a 
series of three-letter mnemonics which stand for the machine 
language commands. STA is the mnemonic for 10000101. The 
assembler program then translates symbols like STA into 
machine language numbers. It’s that translated program that 
becomes the finished game. 

However, machine language programming is very tedious 
and very complex. Especially for beginners, BASIC is by far the 
easier language for programming. The commands are more 
like English, they’re easier to remember, and it takes fewer 
commands to perform each operation. 

What you get in ease of programming, however, you pay 
for in running time. While your BASIC program runs, BASIC 
has to translate each command into machine language every 
single time it is used, and that takes up a lot of time. BASIC 
programs generally run slower. 

But BASIC is slow only by comparison with machine 
language. It is a very fast and powerful language in its own 
right, and the more you work with it, the better you'll do at 
writing fast, effective games in BASIC. 

Once you are familiar with programming in BASIC and 
have a good idea of what you can get the computer to do, it is 
much easier to progress to machine language. You'll probably 
begin by writing short machine language routines to include 
with your BASIC programs, so that you can get the speed of 
machine language in a few places where you really need it. In 
fact, there are some machine language routines later in this 
book. But actually teaching machine language is beyond the 
reach of this book. Once you learn how to make the 64 play 
good games, it’s up to you to decide what language to use. 


The 6510 

The 64 has a brain made of silicon. The CPU (central 
processing unit) is the 6510, which is very similar to the 
famous 6502 microprocessor that serves as the brains of the 
Apple, Atari, and other microcomputers. However, Commo- 
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dore isn’t just using the 6510—they own both the 6502 and the 
6510, which means they can offer the 64 at a lower price than if 
they had to buy the processor from somebody else. 


Program Translation 

Just because Appie, Atari, and Commodore all use the same 
CPU doesn’t mean that you can run programs written for 
those machines on your 64. 

For one thing, Commodore BASIC is different in small but 
important ways from the BASIC used by the other machines. 
It's even different from the BASIC used by the VIC and the 
PET, though in fact it’s often possible to take programs written 
for the VIC or PET and, by changing a few numbers, make it 
run on the 64. 

Why can’t BASIC programs and programs for the 6502 run 
without changes on all the computers that use that language 
and that processor? Because the CPU doesn’t control everything 
going on in the computer. Each computer has its own way of 
communicating with cassette recorders, disk drives, 
keyboards, and the screen. 

Each memory location can mean different things on 
different computers. When your computer stores a 4, for 
instance, at location 1 in RAM, that tells the computer to 
switch on the input/output (I/O) register. That same location on 
the Atari is used to store a timer value. You'll be using location 
53272 often with your 64, to tell the VIC-II chip where to find 
screen memory and character memory—but in the Atari, that 
same location is used to set one of the playfield colors. The 
equivaient playfield color on the 64 is set at location 53283. You 
can see why you can’t just pick up a program from one 
computer and run it on another! 

The only way for a BASIC program to be portable (easy to 
translate for another computer) is to stick to generally accepted 
BASIC commands and never PEEK and POKE into specific 
memory locations. Unfortunately for game designers, 
computers usually differ the most in graphics and sound 
handling, which are at the heart of game programming. By the 
time you finish translating the game, you've practically created 
a whole new program. That’s why few people bother to go 
through the translation process. It’s often just as easy to start 
programming from scratch. 

Which is exactly what we're going to do in Chapter 2. 
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If you don’t know where you're going, how will you know 
when you get there? 

It’s important to plan your game before you start program- 
ming it. If you have a clear idea of how the finished game 
should play, you'll also have a pretty good idea of what needs 
to happen in your program. 

Some things are obvious. If you're going to use the joy- 
stick, you'll need to have a routine in your program that reads 
the joystick. If not, your program will have to read the 
keyboard to find out what the player wants to do. 

Some things, however, are more subtle. What will happen 
if your player-figure touches the sides of the screen? Will it 
explode? Appear on the opposite side? Bounce off? Lose 
points? Slow down? Speed up? Get larger? Get smaller? Disap- 
pear? Cause five new enemy creatures to appear? Cause the 
enemy creatures to move faster or come closer? 

There are hundreds of choices like that, and at some point 
you'll need to decide how your game program will handle 
them. If you make those choices beforehand, in the planning 
stage, then you can design a program that will do everything 
right—and will fit together the first time with a minimum of 
revision. 


The Design of Joust 

Let's begin by taking a closer look at one of the most popular 
arcade games. My own favorites are Defender and Stargate, but 
the same design principles apply to Donkey Kong, Ms. Pac-Man, 
or Joust. What is the computer actually doing during the game? 


Words 

Let’s look at Joust in detail. When you put in a quarter, what 
happens? There are words on the screen, telling you what to 
do next. When you choose the one- or two-player option, there 
are more words. Remember, too, that there are instructions 
written on the outside of the game machine. All of these, 
combined, tell you how to operate the controls. 

This is documentation. If it is written down on paper or on 
the machine, it is printed documentation. If it appears as part of 
the video display during the game, it is internal documenta- 
tion. Whichever form it takes, though, good documentation is 
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vital to make a game fun to play. If there’s nothing to help 
players understand what they’re expected to do, or if the 
instructions are inaccurate or incomplete, playing becomes 
frustrating instead of fun. 


The Display 

Then the words disappear from the main display area. What is 
on the screen? The playfield—the area where the game action 
will take place—consists of brown, rock-like islands. The 
bottom island rises from the base of the screen, with a lake of 
fire on either side. The other islands, though, float in midair. 
Several of them have white strips near the surface—these, the 
player will soon discover, are the platforms where new player- 
figures and new enemy knights will appear. 

Besides the playfield, there are several other things on the 
screen. The score is constantly displayed, for either one or two 
players, so you can keep track of how many points you have to 
earn before the next bonus knight. Also, there is a little box 
that displays how many knights you have left; this lets you see 
at a glance how many more turns you'll have. 


Movement and Animation 

Now the action begins. Your player-figure, a knight mounted 
on an ostrich-legged bird, appears on the left side of the 
bottom island. When you hold the joystick to the left, the bird 
turns and starts to walk; keep holding it, and it runs in that 
direction. Then if you push the joystick right and hold it, the 
bird screeches to a halt, pauses, turns right, and then starts 
walking. 

When you push the flap button, your mounts wings flap 
once. This makes your knight rise into the air a little, but 
almost at once he begins to sink. When you push the button 
repeatedly, however, the wings keep flapping and your knight 
rises higher and higher. 

The realistic flapping of the wings, the motion of the legs, 
and the way the legs and wings seem to cause the figure to 
move are animation. The overall pattern of movement, the rela- 
tionship between the player's joystick and button and the 
motion of figures on the screen, is player movement. The distinc- 
tion is important in programming—you will use one kind of 
routine to animate, or change the shape of the character, and 
another kind of routine to move, or change the location of the 
character. 
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Collisions 

Now other knights start appearing on the screen. They’re 
computer-controlled characters that fly according to their own 
patterns. As you move your knight around the screen, he 
starts bumping into things—islands and other knights. 

If you collide with the bottom or edge of an island, or the 
top of the screen, you bounce off. If you were going fast when 
you hit, you go just as fast when you bounce off. Your bounce 
also takes into account the direction you were going when you 
collided—if you were going upward to the right when you hit 
the top, you go downward to the right after the bounce. 

If you fall down onto the surface of an island, your mount 
extends its legs and starts to walk—regardless of how fast or 
how far you fell. Running into islands or the ceiling will never 
hurt you. 

One oddity is that if you glide into contact with the 
surface of an island along an almost exactly horizontal path, 
the legs of your mount won’‘t come down. You'll just bounce 
along without walking, belly-flopping your way across the 
screen. If you are doing that when you reach the gap between 
the two close-together islands on the right side of the screen, 
you'll be squished down through the gap and ejected on the 
lower side in an instant, not a bit the worse for wear—quite a 
remarkable feat! 

When you collide with another knight, one of three things 
can happen. First, if your knight and the other one are on 
almost exactly the same level, you will simply rebound from 
each other with a loud noise. 

If your knight is lower on the screen than the other knight, 
your knight will disappear and a new one will come to life at 
one of the creation platforms. 

If your knight is higher, it is the enemy that disappears. In 
his place, a large egg flies away from the mount, as the mount 
flaps quickly off the screen. 

Your knight has a certain amount of time in which to go 
collide with the egg before a new enemy knight hatches out of 
the egg, and his mount flies out to join him. The egg trembles 
a bit before it hatches, and the enemy’s mount does take 
awhile to arrive and get in place, so there’s plenty of warning— 
but if the new enemy knight gets mounted, he is more formi- 
dable than the one before. And the sooner you get the egg, the 
more points you get. 
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Intelligent Enemies 

The enemy knights start out relatively slow and stupid, but 
even at the start they tend to notice where your knight is and 
home in on him. Also, the blue enemy knights are faster and 
harder to beat. They have a habit of maneuvering right under 
the edge of an island, or right along the top of the screen, so 
that it’s hard for you to get above them. They also use the 
island and screen top for rebounding—they fly quickly 
upward and then rebound downward so they come at you 
faster than you expect and from a direction you weren't 
prepared for. If you imitate their strategies, you'll do better 
against them. 


Other Hazards 

From the third level onward, the sea of lava at the bottom of 
the screen is uncovered. If your knight falls in, he is 
consumed. If he comes too close while moving too slowly, the 
lava troll reaches up and seizes him, pulling him downward 
into the lava. The hand sometimes seizes the other knights, 
but, after holding them awhile, almost always lets them go. 
While they are being held, however, they are vulnerable to 
you. 


Creation 
What happens after one of your knights has disappeared? One 
of the platforms turns yellow, and a new knight rises into view. 
Unlike the enemy knights, yours does not immediately fly 
away. If you don’t move, you have a few seconds in which 
your knight cannot be harmed, to wait for enemy knights to 
leave you a clear section of sky in which to take off. 

You'll also notice that usually your new knights arise from 
a platform in the area where the fewest enemy knights are 
flying. Likewise, when enemy knights are being created, they 
will not usually appear at a platform if your knight is hovering 
too close. 


Increasing Difficulty 
The longer you play, the harder it gets. The most noticeable 
change is that at higher levels there are more enemy knights. 
Also, the knights move faster and make more erratic, unpre- 
dictable movements. They also get smarter and evade you better. 
Also, if you take too long at any one level, a pterodactyl 
appears (though I prefer to think of it as a phoenix). The ptero- 
dacty} flies back and forth across the screen and doesn’t home 
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in on you very accurately, but if you’re careless it will get you— 
and then it doesn’t help you to be above it, for the pterodactyl 
is “indestructible.” 

Or is it? The message on the screen said, “Beware the 
indestructible (?) pterodactyl.” That question mark leaves some 
doubt, and you eventually learn that if you meet the ptero- 
dactyl head-on, with your knight's lance exactly at the level of 
the monster's mouth, you can kill it. At later stages, the ptero- 
dactyl comes on the screen almost at once, and homes in on 
you faster and more accurately. 

At higher levels, the platforms begin to disappear, which 
makes the game more of a free-for-all, with fewer places to 
hide, until finally you have no more hiding places at all. Then 
the islands come on all over again, but by then everything is 
moving so fast that they don’t make it much easier. 


Increasing Interest 

If a game stays the same from beginning to end, except for 
getting harder, it soon becomes dull. Joust adds some new 
elements to increase interest. There is a Survival Wave. If you 
can keep the same knight alive throughout that wave, you get 
a substantial bonus. If you are playing with someone else, you 
have waves of competitive play (Gladiator Wave), in which you 
get bonuses for hitting each other, and cooperative play 
(Survival Wave), where the bonus comes for not hitting each 
other. 

There is also an Egg Wave, in which, instead of enemy 
knights, all their eggs are strewn on the platforms. It is diffi- 
cult, but not impossible, to get all the eggs before they hatch. If 
the enemy knights hatch, they are significantly better fighters 
than they were in the round before. 

The pterodactyl, the lava troll, and the disappearing 
islands also serve to change the game and add interest. 


Incentives 
To encourage you to play again, improving each time, Joust 
gives you a score for your achievements in the game. Each egg 
you get is worth 250 points more than the last one, starting 
with 250 points and peaking at a maximum of 1000 points per 
egg. You also get a bonus if you get the egg quickly. 

If your knight is destroyed and a new one appears, the 
scoring starts over at 250. Likewise, the egg scoring starts over 
with each new wave. 
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You get 50 points for getting killed. I think this was 
inserted in the game so novices wouldn't get depressed at a 
score of 0 when the game ends. 

You get 1000 points for killing a pterodactyl. 

Every 20,000 points, you get a bonus knight. This means 
that the better you play, the more chances you have to play 
even longer. 

If your score is higher than the lowest score on the vanity 
board (list of best players), you get to enter your initials at the end 
of the game. 


Sounds , 

Each event has its own sound. A collision in which you win 
has a different sound from a collision in which you lose. 
Bumping into different surfaces makes different sounds. There 
are sounds for knights arising from platforms, for eggs 
hatching and birds coming in, for the pterodacty1's arrival, and 
for collisions with eggs. There are different sounds for walking 
and for flying. There is a sound to tell you when you get a 
bonus knight. 

Even while you're concentrating on your own knight, 
trying to keep him alive, the sounds tell you a lot about what's 
going on elsewhere on the screen. And as you scan the rest of 
the screen, the wing-flapping sound helps you keep track of 
your own knight's rhythm. You may not be conscious of the 
sound, but it’s as much a part of the game as the video. 


Story 

Everything we’ve analyzed so far is detail, the bits and pieces 
that come together to make up the whole effect. But much of 
the fun in Joust is the story. You get to be a knight on a fantastic 
steed, flying rapidly among floating islands, jousting with 
dangerous opponents and evading or attacking mythical 
monsters. It’s a fascinating world, a fantasty tale that you are 
acting out as you play. Whether you get a hundred thousand 
points or a tenth of that, you still get the pleasure of doing 
something with the computer that you could never do in real 
life. It is a pleasure just to visit the world of Joust, and that sort 
of pleasure can also be part of your game. 


Complex Programming for Simple Games 
When you analyze a game, the way we have just analyzed 
Joust, you can see that the simple, smooth play that you enjoy 
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so much is actually the result of careful, meticulous planning 
and programming. Every single effect, every single rule of the 
game was planned and programmed. What happens if A 
collides with B, or with C, or with D? How does the game get 
harder as it goes along? All these things go into making a game 
that plays well the first time—and keeps on being fun the 
hundredth time you play. 

Your first game doesn’t have to be a Joust. It takes machine 
language, for one thing, to keep so many different figures 
moving around on the screen at those speeds (though we will 
see how to move and animate many characters at once). But 
even in fairly simple, slow-moving games, you'll need to take 
into account every one of these things in order to create a fun, 
interesting game. 

In fact, it wouldn’t be a bad idea to go to an arcade and 
study some of the games. Stand behind a game wizard while he 
plays and write down the things that happen on the screen. 
How do the ghosts respond to the player in Pac-Man? How 
often do the girders bounce out during the elevator sequence 
in Donkey Kong? How are pickle movements different from 
frankfurter movements in Burger Time? 

Once you become aware of how game creators have 
designed the games in the arcades, you'll be much better 
prepared to plan the same kinds of effects in your own games. 


The Story of Your Game 

Donkey Kong is the story of Mario trying to save his girlfriend 
from the gorilla. In Missile Command you are trying to save 
cities from an enemy attack. Defender pits you against alien 
invaders. In Robotron, you are trying to rescue little human 
figures from robot attackers. In Asteroids, you’re in space, 
threading your way among asteroids while fighting off 
enemies. The stories range from almost abstract games, like 
Qix and Tempest, to fully developed stories like Venture and 
Donkey Kong. 

Don’t underestimate the importance of having a good 
story. For one thing, if your story is too close to the story of an 
existing game, you won't ever be able to release your game 
commercially—you’d get sued! But more important than just 
being different is the fact that a good story will give you ideas 
for game events that will make it more fun to play. 

Let's say you wanted to design a game that has the same 
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movement pattern as Centipede—a chain of linked segments 
moving back and forth across the screen, getting closer and 
closer to the player at the bottom. Naturally you can’t just 
duplicate Centipede—there’s no future in plagiarism. But what 
other story could explain that movement? 

Your player could be a roller coaster repairman, and the 
moving segments could be a roller coaster. Of course, shooting 
roller coaster cars isn’t exactly sociable behavior, so you may 
want to change the play action by having your player-figure 
patch holes in the roller coaster track or remove obstacles that 
are being put in the way by a terrorist. A roller coaster doesn’t 
just get to the bottom of the screen and disappear, either— 
unlike Centipede, your game might have the roller coaster climb 
slowly to the top again, during which your player-figure has 
time to patch some holies. 

You see how the game changes as you develop the story. 
And that can only improve your game. Even if an arcade game 
was your starting point, there’s no reason why your game 
shouldn't be better than its inspiration. Look how much Galax- 
ians improved on Space Invaders, only to have Firebird and 
Galaga improve even more. 

Nowhere is this clearer than in Tron. What is the cone 
sequence except good old Breakout? Here, though, it has a 
story. With a character trying to get through the blocks, it takes 
on a whole new meaning. Tron also includes a traditional tank 
shoot-out, and the light cycles sequence is nothing but a varia- 
tion on the old Atari VCS cartridge Surround. Even the spiders 
aren't really new. But the story has changed and reshaped 
them, and the result is a game that is new. 

Once you start thinking of new stories for games, you'll 
find it’s hard to stop. You can fill up notebooks full of game 
ideas and plans in a very short time. And eventually there'll be 
one that you like so much that you can’t let it go. You keep 
thinking about it, refining it, coming up with new variations. 
That's the one that you should program—the game you care 
about is the one that you'll have the patience and insight to 
program well. 


Display: What Does the Player See? 

On one level, all that goes on in a videogame is that a bunch of 
dots on the video screen are lighting up in various colors, and 
sounds are coming from a speaker. 
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But the dots, or pixels (short for “picture cells”), aren't just 
lighting up at random. They form patterns that the human 
brain recognizes as meaningful. 

If the pixels form a yellow circle that has a wedge cut out 
of it, we recognize Pac-Man. 

Mix different colored dots in set patterns, and we recog- 
nize the hard-working hero Mario from Donkey Kong, or the 
magnificent flying mounts from Joust. 


Characters 

On your 64, a whole set of shapes already exists. Every char- 
acter on the screen is a pattern of pixels that you recognize as 
letters or numbers or other symbols. None of them looks like a 
spaceship or a gorilla, but that’s all right—you can design your 
own characters to replace some or all of the regular characters. 
When your program PRINTs the letter A, for instance, what 
appears on the screen will be the pattern that you designed. To 
the computer, the letter A is just the screen code 1. It will treat 
the character the same no matter what shape you give it. Or 
you can combine several new characters to make part of a 
larger picture on the screen. 


Animation 

The pictures are just pictures until they move. It is when the 
wings of your steed start to flap that Joust comes alive. And 
half the fun of Donkey Kong Jr. is making Junior climb up or 
slide down the ropes and chains. 

It is possible to make your animation as smooth and real- 
istic as the best cartoon movie. But you also face the same 
problems that a cartoon animator faces. Each slight movement 
of a character requires a new picture of that character. Each 
direction a character faces, each action the character performs, 
requires another drawing. And that takes memory. You have a 
lot of memory on the 64—but animation eats up memory fast. 

So game designers compromise. They simplify the anima- 
tion. The gorilla in Donkey Kong stamps his feet and 
grimaces—but that requires only two drawings per leg 
(stamping and not stamping), two drawings for the face 
(grimacing and not grimacing), and a single drawing for the 
body. When Kong is rolling barrels,there are new drawings to 
show him doing that. But since he only rolls barrels to one 
side, the programmer had to create only the shape for that 
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side. And there’s no attempt to make the gorilla walk realisti- 
cally—he just bounces, without moving his legs. It’s far from a 
classic Disney animated film, but it’s good enough to make a 
great game. 

Remember that anything on the playfield that changes 
during a game requires the same sort of memory considera- 
tions. If a trap door opens or a cup of milk empties, you'll need 
new characters or sprite definitions for every new shape you 
show. 


Prhayer Movement 

When players press a key or move a joystick, something needs 
to happen on the screen. And here is where the “feel” of a 
game comes in. Pushing on the joystick causes a movement on 
the screen only when your game program checks the joystick 
and makes changes according to what it finds there. If your 
program checks the joystick only once every second, the 
player-figure can’t move any more often than once every 
second. And that’s going to feel awfully sluggish to players. 

As long as you’re programming in BASIC, you’ll want to 
design your program so that it checks the joystick and allows 
movement as often as possible. (That isn’t so important in 
machine language games, however—everything happens so 
fast that you often need to insert delays or timer routines to 
slow down the action!) 

So when you're planning your program, you'll probably 
build it around a central loop, a series of commands that 
repeat over and over. At the heart of that loop will be a 
joystick-reading routine. If the player isn’t pushing the stick, 
then you can skip on to other things. But if some action is 
requested, your program needs to be able to perform it as 
quickly as possible after the player asks for it. 

This means that you want to have as few things 
happening on the main loop as possible. If the computer- 
controlled enemy-figures move as often as the player, then 
they will all have to be moved every time you go through that 
loop. And in BASIC, that will make your program crawl. 

The solution is to compromise. Either have fewer 
computer-controlled opponents, have them move less often, or 
give them simple, regular actions. The back-and-forth move- 
ment of the aliens in Space Invaders is a good example of this. 
They don’t aim when they shoot; they don’t have to figure out 
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a path when they move. They just do the same thing, over and 
over. Nothing could be simpler—or faster. We'll go through 
several techniques for doing this in the chapter on animation. 

And as you design your program, move as much of the 
program as possible off the main loop. Using IF/THEN GOSUB 
or ON/GOSUB statements, you can have the program decide 
during the main loop whether a particular routine is necessary. 
If it is, the program can jump to the subroutine and then come 
back; if it isn’t, the program can ignore it and go on, without 
wasting much time. 

Eventually you may even start looking for books on 
machine language, so that your game programs can perform 
some of these functions much faster than BASIC allows. There 
are some machine language routines in this book, too, that will 
help you achieve real speed. Still, don’t despair if your first 
version of a program runs more slowly than you want. You'll 
soon learn tricks to let you streamline your program and make 
it go faster. As long as you don’t expect the impossible, you'll 
be able to get your game to play smoothly and well. 


Relationships on the Screen 

The screen display may be dazzling, but the computer can’t see 
it. It can’t just glance and see whether a player-figure has 
bumped into a wall, or moved off the screen, or collided with 
an opponent. 

The computer has to remember where everything is, and 
then check to see if there has been a collision. In our roller 
coaster variation on Centipede, for instance, the computer won't 
be able to see that the roller coaster is passing over a gap in its 
track. What it will do, though, is remember that there is a gap 
in the track at column X, row Y. That information can be stored 
in an array variable, GAP GAP(3,0) gives the column number 
of the third gap; GAP(3,1) gives the row number. Each time the 
roller coaster moves, then, the program checks all the “gap 
location” variables, and if the roller coaster location is right 
above a gap location, the program can make the roller coaster 
fall through the gap. 

There are other methods of checking for collisions, too— 
PEEKing into screen memory and checking the sprite collision 
register. You have to program that sort of thing into your 
game, so that the computer can do it over and over again. It 
sounds tedious, but the computer doesn’t mind. In fact, that’s 


31 


GEES Game Design 


one of the greatest things about videogames. Imagine playing 
Joust on a game board, having to calculate all the tiny move- 
ments and collisions yourself. The game would be slow—it 
wouldn't feel like you were flying. But the computer does all the 
drudgery of figuring out where you should be on the screen 
and whether you’ve bumped into anything, so that you can 
simply fly. 


Intelligent Opponents 

It’s one thing to have the aliens in Space Invaders move mind- 
lessly back and forth across the screen, or a centipede mind- 
lessly dropping downward according to a set of rules. It’s 
something else again to have the computer operate seemingly 
intelligent opponents that maneuver to try to get the best of 
you. ; 
Ina primitive form, like Berserk, it’s a simple homing 
instinct—the robots tend to move up if your player-figure 
moves up. 

In Joust, however, the programming is much more 
complex. The opponents have a general homing pattern—but 
they also have built-in strategy. If you’re near, they'll maneuver 
to gain altitude on you; they'll hover under the lip of a floating 
island; they'll fly upward and rebound down on you. The algo- 
rithms to control that kind of behavior are pretty complex, 
both as mathematics and as programming—it verges on artifi- 
cial intelligence. 

But don’t worry. Most arcade games aren’t nearly so 
complex. In Donkey Kong, for instance, the flames do have a 
tendency to home in on Mario, but they also follow certain 
basic patterns. When you learn them, you realize that the 
flames are only slightly more complicated than the robots in 
Berserk. 

There are three levels of intelligence in computer- 
controlled figures: the mindless pattern, the homing pattern, 
and artificial intelligence. 


Mindless Patterns 

Here, the figures move in a set pattern, regardless of what the 
player does. Examples are the aliens in Space Invaders and the 
birds in Donkey Kong Jr. Once you see the pattern, you can plan 
on it and work around it. However, the computer usually 
makes up for its lack of subtlety by having lots of opponent- 
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figures for you to cope with. One alien moving back and forth 
across the screen would be a picnic; a few dozen, and it’s 
suddenly a challenge. 


The Homing Pattern 

In this system, the computer-controlled figures change their 
pattern according to where the player-figure is. The response is 
pretty simple, as in Berserk or Pac-Man. The monkeys in 
Kangaroo seem more intelligent, but they are pretty much the 
same. They move up and down the tree according to one of 
three set paths. They respond to the player's position by stop- 
ping on the same level as the kangaroo. Then they walk left a 
certain distance, depending on the left-to-right position of the 
kangaroo, and throw fruit. Programming this behavior pattern 
requires some careful planning and attention to detail, but no 
math more complicated than simple arithmetic. 


Artificial Intelligence 

With this kind of opponent, the computer anticipates what you 
will do and plans strategies accordingly. Sports simulations 
often require this, as the computer lines up a football team in a 
pattern that it thinks will cope with whatever you have 
planned. The complex knight movements in Joust require some 
anticipation. But games that rely heavily on artificial intelli- 
gence algorithms are relatively rare. Most games rely on mind- 
less or homing patterns, which are much easier to program 
and still make excellent game opponents. 


Give the Poor Human a Break 

One thing to keep in mind, though, is that even in BASIC the 
computer is usually faster than the human player's reflexes. In 
a homing pattern, the computer can always recognize, 
instantly, any change in the player-figure’s movement and 
respond without any delay. A human being, however, takes a 
moment to recognize the change and respond to it. It’s an easy 
matter to program an opponent to home in on the player and 
destroy him every single time. But that wouldn’t be much fun 
to play. 

So you need to build weaknesses into your computer- 
controlled characters. Make them slow or dumb—or both. 
They can get smarter as the game goes on, but no one enjoys 
playing a game of sudden death, in which there’s no chance of 
survival at all. 
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Orther Complications 
Besides the computer-controlled opponents, you'll probably 
want to have other hazards. Most games have them. 

In Pac-Man, for instance, the maze itself is a complication 
because players have to keep turning and dodging, and can 
get trapped in long corridors with ghosts at both ends. 

In Joust, the lake of fire and the demon hand make the 
game a bit trickier, while the islands make it impossible to have 
many long, smooth flights. The eggs are one more thing to 
worry about while you try to battle the other knights. 

Donkey Kong makes you cope with ladders and elevators 
and gaps between girders. Kangaroo makes you climb or leap 
from level to level. Rally-X not only has a maze, but also puts 
random rocks in the road and keeps you worrying about 
running out of gas. 

The basic principle of complication is to make sure the 
player has to think of several things at once. Not only do you 
have to dodge the pickles, hot dogs, and fried eggs in Burger 
Time, but also you have to make hamburgers and Egg 
McMuffins. The more things going on at once, the busier the 
player has to be. 

But, again, don’t make it impossible. The complications 
should come at a rate that a human being can cope with. It 
isn’t fun to find out that a computer is quicker than you are. 
What's fun is feeling like you’re a match for the computer, at 
least for a while. 


Entrances and Exits 

Figures appear or disappear often during a game. But a simple 
vanishing and reappearing act isn’t very satisfying to the 
player. Besides, things are often happening so fast that players 
need a bigger effect to help them know what's going on. 

For instance, when you eat a ghost in Pac-Man, it doesn’t 
just vanish and then reappear somewhere else. We can see the 
eyes of the now-invisible ghost as it rushes from the site of its 
untimely demise to the box in the middle of the screen. There, the 
ghost gets back its shape — but it still wanders around inside the 
box for a moment or two before reemerging. This gives players 
some time without that ghost in the way, and helps them keep 
track of when it will come out again. 

Even more important than when an opponent disappears 
and returns, however, is when the player's own player-figure is 
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wiped out. It can range from the big explosion in Asteroids and 
other shoot-outs to Mario’s head-over-heels tumble in Donkey 
Kong, but something needs to happen to let players know that 
they've been beaten, at least in this round. 

However, as a matter of psychology, it helps if the player- 
figure’s doom isn’t too unpleasant. Abusive comments, for 
instance, don’t make anybody feel like playing the game again. 
That's why so many arcade games have a “cute” ending— 
funny sounds and an animated sequence that doesn’t suggest 
death or terrible pain. 

Remember, if you've done well at creating a good player- 
figure and an enthralling game, players will be taking events 
in the game pretty personally. Your computer should be a good 
sport about winning, and not gloat. 


Maintaining Interest 

One of the elements in games like Monopoly or Poker or Chess or 
Go that has made them classics is that they remain a challenge, 
no matter how often you play. You may not come up witha 
Monopoly your first time, but you certainly don’t want to create 
a game that people will play once and then discard. So what is 
it about a game that brings people back to play again and 
again? 


Unpredictability 

No game is completely unpredictable—the rules are designed, 
in fact, so that it will play pretty much the same every time. 
What good would baseball be if you never knew what order to 
run the bases from one game to the next, or where the bases 
would be, or the size of the ball? Yet every baseball game is 
different because there are, within the framework of the rules, 
some things that can never be predicted. The speed and spin 
of the pitch, the force and direction of the bat, the angle and 
speed of the ball off the bat, the arrangement of runners on the 
bases and players in the outfield and the infield—these are 
never twice the same, even though the rules never vary. 

You'll notice that all those variables depend on what 
human beings do. The trouble with computer games is that the 
computer is absolutely predictable—it will always obey your 
program commands. The computer has only two ways of being 
unpredictable. One is to generate a random number and use it 
in your program. The other is to let the player’s input change 
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the way the program acts. 

Space Invaders has very little unpredictability. The aliens 
will tend to shoot more where the player is, and if you wipe 
out columns of aliens at the edges, it will take longer for 
them to reach the edge and drop down to the next level. That's 
about it. 

Missile Command uses the random method of being unpre- 
dictable. While the enemy always aims at the same targets, the 
missiles never start at the same place and in the same pattern 
at the top of the screen. 

Dig-Dug depends on the player for its unpredictability. 
The player, in effect, draws the playfield by carving a maze 
through the rock. Even though the placement of the creatures 
at the beginning of each level is always the same, and their 
movement starting times never vary, the levels can be as 
different as the player wants to make them, because every- 
thing the creatures do depends on where the player has cut the 
maze and where the player happens to be. 

Increasing Difficulty 

Another way of keeping interest high is to make the game 
increasingly difficult. If you're a tennis player, you know that 
it’s most fun to play with an opponent who’s just a little better 
than you. And most arcade games use the same principle—no 
matter how good you are, at some point the computer is going 
to be just a little better. 

How do you make a game harder from level to level? 
Speed, accuracy, and complication are the keys. 

Speed. At low levels, opponents move slowly and are 
easy to catch or evade. Just by changing the timing, however, 
opponents can be made to move faster, bit by bit, until they zip 
around the screen. Players can also be allowed to move faster, 
so that they have to make decisions more quickly. And if oppo- 
nents throw rocks or shoot bullets, those projectiles can move 
faster so that it’s harder to dodge. 

Accuracy. At low levels, opponents can be programmed to 
miss. In Asteroids, for instance, the big enemy ship fires some- 
where in the space around you—you practically have to try to 
get hit for it to harm you. But the small ship, which comes on 
later, fires much more accurately, predicting your future course 
so that it’s much harder for you to dodge in time. 

Complication. Keeping track of four enemy knights is 
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hard enough at the beginning of Joust, when you're just 
starting out. But in later levels, you have dozens to worry 
about, and the eggs and pterodactyls, too. 

Most games use a combination of these three, gradually 
increasing the speed, accuracy, and complications from level to 
level. It’s easy to do if you design your programs with some 
key variables, so that you only have to change their values at 
the beginning of a level to have the game get faster and harder 
to play. 

There’s a problem, though, with having games get increas- 
ingly more difficult as you go from level to level. You have to 
get through a lot of boring stuff that’s easy to do before you 
can get to the part of the game that’s challenging. 

The solution is to let players choose their starting levels at 
the beginning of the game. However, this might cause their 
total score to drop, and those who care about high scores will 
be frustrated. The designers of Tempest found one solution. if 
you decide to start at a higher level, you get a progressively 
larger bonus when you successfully complete that starting 
level. It's impossible for someone who starts at level 1 to get as 
high a score as someone who starts at level 11, even if both end 
up at level 15, because the bonus for starting at a high level is 
so large. In the arcade, this also serves the purpose of encour- 
aging players to play harder, shorter games, so the quarters 
flow faster, but even at home it’s nice not to be penalized for 
Starting out at a high level. 


New Scenery 

One thing that keeps players going with many games is the 
desire to find out what awaits them at the next level. The 
changes can be major ones, like the new screens introduced at 
each new level of Donkey Kong, or they can be minor, like the 
succession of bonus vegetables in Dig-Dug. In Galaga, it’s fun to 
see what new creatures will appear, and in what pattern they'll 
fly, in each bonus round. Later versions of Pac-Man vary the 
mazes; Tentpest has new and increasingly complex geometric 
patterns at each level; Venture has new rooms, new treasures, 
and new monster guardians. 

Even working in limited memory, it’s possible to have 
small surprises hidden away for the player who makes it to 
higher and higher levels. It turns videogaming into explora- 
tion, and that adds a lot to the fun. 
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Incentives 

Beating the machine and finding out what happens next are 
certainly incentives to keep playing longer, better, and more 
often. But you need to make sure that your game encourages 
players to acomplish the tasks the game sets out for them. 

Negative incentives are usually the first things people 
think of. If you don’t shoot the rockets out of the sky in Missile 
Command, your cities will be blown up and the game will end. 
If you don’t punch out the monkeys and keep climbing in 
Kangaroo, you'll be decked by a piece of fruit or a gorilla. 

There need to be positive incentives, too, to keep the 
player doing the right things. In Monopoly, for instance, you 
are encouraged to buy properties early in the game because, if 
you do, you get more rent later. You are encouraged to try for 
monopolies because your rent is doubled and you can make 
property improvements. You are discouraged from mortgaging 
property because you get no rent. That same kind of reward 
structure will help the player of your game to do the things 
your game requires. 


Scoring 


Scoring is the easiest way to let players know how they are 
doing. Each time players accomplish a goal, there should be a 
reward in points. It doesn’t matter if the players know exactly 
how the points are awarded, but they should be given consis- 
tently, and harder accomplishments should be rewarded with 
more points. 

In Pac-Man, for instance, you get points for each dot you 
eat. You also get points for each ghost you collide with after 
eating a power pill. And each ghost you collide with on the 
same power pill is worth progressively more points. The bonus 
for eating fruit and keys increases with each screen, too, 
rewarding you more for surviving farther and farther into the 
game. 

But how many points? That's a tricky question, and it’s 
really up to you. The general rule is that easy things get few 
points and hard things get lots of points: But no one accom- 
plishment should get so many points that it completely over- 
balances the game. 

Point inflation. Also, you should keep “point inflation” in 
mind. In Asteroids, you can’t get less than ten points for 
anything. The score always ends with zero. You could get rid 
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of that last zero, and it wouldn’t affect anything, except that 
1000 points would be only 100 points, and so on. Your score 
would be just as accurate. 

So why does Asteroids multiply your “real” score by ten? 
Because it feels a lot better to get 10,000 points than to get 1,000 
points! The game inflates your score so that it feels like you’ve 
accomplished more. After Asteroids, a game like Super Breakout, 
which rarely lets you get above 4,000 points, feels rather tame, 
in part because the score is lower. 

But point inflation has limits. It’s hard for players to visu- 
alize a billion points, so if scores get into the billions and tril- 
lions, and most of the score is meaningless zeros, players will 
tend to drop off the zeros anyway, and talk about getting 15 or 
30 instead of 15,000,000,000 or 30,000,000,000. 

Vanity board. Part of the fun of scoring is to see if you can 
get on the vanity board. Vanity boards began as a record of the 
high score. Gradually, games began including the top three or 
top five or top ten scores, and allowed the players to enter their 
initials or even their names. Players quickly learned to use 
these for graffiti, getting exactly the right scores so they could 
spell out messages of varying degrees of cleverness. However, 
the vanity board was erased when the machine was turned off. 
Now games often have methods of storing part or all of a 
vanity board even when the power is off. Most such games 
have split vanity boards. Half the high scores are permanent 
and do not disappear; the other half revert to zero when the 
game is off. 

There are other variations, too. Some machines have 
default values when they power up, so that your score won't 
show on the vanity board until you get a minimum of, say, 
10,000 points. Others come up with phony initials and plau- 
sible but low default scores, so that it looks like other players 
have left their initials and scores even when no one has played 
the machine that day. 

It’s often a good idea, if your game has scoring at all, to 
have a high score display at the end of a game, so that players 
can keep track of the top score earned since the program 
started running. You can easily keep the top three or five 
scores, with initials, or the top score for each player. And it’s 
not hard to include a permanent vanity board as part of the 
program, which is automatically saved each time the game 
ends. 
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Bonus Turns 

Games like Pac-Man and Donkey Kong never allow more than 
one bonus turn, but Dig-Dug, Asteroids, Galaxians, Joust, and 
others reward players with bonus turns at regular intervals. 
Limiting the number of bonus turns helps the arcade owners 
because it means people can’t play as long on a single 
quarter—but people playing your game at home on their 64 
don’t need that restriction. 

Of course, it can be carried to extremes, too. Endless 
games of Asteroids that end up with scores in the millions are 
the result of poor planning. The program should have been 
designed so that at the higher levels a dozen little enemy ships 
come on the screen at once. Then the game would have stayed 
challenging. 


Story Rewards 
There are rewards built into the story of the game. In Donkey 
Kong, Mario saves the girl; in Donkey Kong Jr., Junior saves 
Papa. In Kangaroo, the doe saves her joey. In these games, 
you'll notice that the objective is often achieved—the girl, 
Papa, and the joey are saved several times during the game. 
In games like Defender, Missile Command, and Asteroids, the 
win condition can never be achieved—there are always new 
waves of enemies, and never any time when the computer 
says, “Congratulations. You saved the earth.” That makes 
these games more frustrating than the games that allow the 
main objective of the story to be achieved. 


Sounds 

Sound isn’t just decoration. It isn’t just music to attract you to 
the game when you hear it out on the street—though it does 
that very well. 


Feedback 

Have you ever played an arcade game with the sound turned 
off? Arcade owners sometimes get so tired of the sounds from 
popular games that they turn the sound off entirely. When you 
play a silent machine for the first time, it throws your timing 
off completely. You rarely realize how much you depend on 
sound until it’s gone. 

Whenever players do something, your program should 
provide a sound that lets them know that the computer got the 
message. The walking and jumping sounds in Donkey Kong are 
a real help—sometimes it takes a moment to realize that Mario 
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isn’t doing what you told him, especially if you’re glancing 
elsewhere on the screen at the time, and the sound can make a 
real difference in your timing. 


News 

Sounds also tell you about things happening elsewhere on the 
screen. An explosion, a collision, an alarm going off, a sound 
for having won a bonus round, a tune that tells you that the 
enemy is vulnerable or to warn you that a new enemy is on the 
screen—all these things help players keep track of what's 
going on while they’re concentrating on the player-figure. 


Mood 

And don’t underestimate the importance of music for simply 
setting the mood for the game. Background music is some- 
thing chess never had. Videogame makers learned it from the 
movies. 

Mysterious music can increase the suspense in a horror 
movie—and in a videogame. Busy, tense music makes a chase 
scene more exciting in an action filim—and in a videogame. 
And bright, cheerful music can be part of the reward for success. 

However, unless you know how to put music into inter- 
rupts—which can only be done in machine language—you'll 
have to keep in mind that every use of sound slows down the 
game. Most of the time, you'll probably use sound only where 
it's really necessary—to give information to the player. 


Documentation 

This is often one of the last things you'll add to a game 
program, but it’s the first thing a player will see. By the time 
you finish programming, you know your game intimately. You 
know everything that will happen at every level, and you are 
probably already pretty good at beating the game. But other 
players won't know anything at all, and you need to tell them 
enough that they can have fun. If touching a balloon will blow 
them up, they should know that; if they have to pick up a pot 
of gold in order to win, they should certainly be informed. 

Your documentation, whether written on paper or on the 

screen, should tell the player several things: 

1. How to use the controllers. What does the joystick do in 
this game? What does the fire button do? What will 
pushing the function keys do (if anything)? Players 
must know everything that will happen when they 
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push keys or buttons or move sticks or paddles. 

2. Game options. Beginning or advanced game? One or two 
players? Nighttime or daytime screen? Shields, hyper- 
space, flip-over, or no defense? All the possible options 
need to be explained. 

3. Game objectives. What are players supposed to accom- 
plish? How can they win? What gives them points? 
What gives them a bonus? 

4, Game hazards. What is going to attack the players? What 
dangers can they run into? Anything that can cause 
players to lose a player-figure or lose the game should 
be mentioned. If players are trying to land a spaceship, 
they should know that touching the walls of the landing 
slip, landing too fast, and not having permission from 
Landing Control can all cause the ship to crash. 

5. Game rules. What can and cannot be done? Computer 
games tend to be self-enforcing—if you try to do some- 
thing illegal, the computer just won't do it. So the game 
rules documentation usually turns into a fips or hints 
section, where you let players know the way something 
works. If you have a football player trying to catch a 
pass, it helps to tell players what conditions have to be 
met for the pass to be caught. 


Start Where You Are 

Now you have your brilliant, fantastic videogame designed, 
and you discover that there isn’t enough computer memory in 
the world, let alone in your 64, to actually carry it out. Or you 
find out that some of the things you want to do would make 
the game run too slowly. Or you discover that some of the 
things you want to do are still out of your reach as a 
programmer. 

That happens to all game designers, no matter how good 
they are. As you do the actual programming, you'll find out 
some things in your plan that just can’t work the way you 
meant them to. That’s fine. Every videogame you've ever 
played is the result of many compromises between the ideal 
game and the limitations of the machine and the programmer. 
Also, new ideas will occur to you while you’re programming. 
The plan you make before the programming begins is to help 
you, not to limit you—to point out needs, not to eliminate 
alternatives. Once the creativity starts flowing, it can only help 
the game. 
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The video display in your game is very important, because that 
is where players have to “live” during the time they are 
playing your game. If it is comfortable, showing the players all 
the information they need to have, with attractive design and 
interesting graphics, they‘l! be glad to come back to that world 
again and again. If it is cluttered and confusing and unattrac- 
tive, the game will be hard to play and they aren’t likely to 
come back for more. 

Visualizing what the video display will look like will help 
you as you design your own game. What will the player first 
see? Is the screen colorful; does it immediately draw the player 
into the game world? Does it create the impression of actually 
being underwater, in space, or tunneling beneath the ground? 
Imagining yourself as a first-time player of your game makes it 
easier to decide what should be included in a screen display. 


Changing Colors 

Let's start getting control of the screen display. There are 256 
possible combinations of background and border colors on the 
Commodore 64. Instead of simply describing them, I’ll show 
them to you. Just type in this simple program. 

S PRINT "{CLR}“ 

18 FOR X=@ TO 255:POKE 53281,X:POKE 5328@,X:NEXT 
28 GOTO 18 


What does this program do? Location 53281 controls the back- 
ground color, and location 53280 controls the border colors. 
This program changes the number stored at these locations by 
POKEing 256 different numbers there—all the values from 0 to 
29D: 

But this isn’t very helpful. It all happens too fast. So here’s 
a program that shows you the color combinations, only more 
slowly. And the program will tell you what number is being 
POKEd into each location, so that if you like the colors, you 
can use them in your game. 
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Anything between braces—“{” and “}”—is the name of a 
special Commodore 64 character. In line 10, you type the word 
PRINT, then a quotation mark. But you don’t then type 
{CLR}. Instead, you press the SHIFT key and the CLR/ 

HOME key. in line 60, you don’t type {2 DOWN} {RIGHT}. 
Instead, you type the CURSOR DOWN key twice and the 
CURSOR RIGHT key one time. Special characters will appear 
on your screen as you type these in when they are used within 
quotation marks. See Appendix B, “How to Type in 
Programs,” for a full explanation of this. 

All of the programs and many of the one-line listings 
include a checksum number at the end of each line. For 
example, in the program below, line 10 has the characters :rem 
197 at its end. That’s the checksum number. These have been 
included to make it easier for you to enter the programs 
correctly. As you type in the programs in this book, you won't 
actually enter the checksum numbers; you'll simply use them 
to make sure the line was typed in correctly. Before you enter 
any of the programs in this book, read through Appendix J, 
“The Automatic Proofreader,’ for the short checksum program 
and description of how it operates. 


Program 3-1. Screendemo 


Remember, do not type the checksum number at the end of each line. For example, do 
not type -rem 123. Please read Appendix J, “Automatic Proofreader,’ before entering 
this program. 


1@ PRINT’ {CLR}“ rrem 197 
22 FOR BR=g TO 15 srem 83 
38 FOR BG=@ TO 15 srem 73 
46 POKE 53280,BR srem 85 
5@ POKE 53281,BG srem 76 


66 PRINT "{HOME}{2 DOWN} {RIGHT}BORDER COLOR="BR; “ 
{LEFT} {2 RIGHT}BACKGROUND COLOR="BG”" {LEFT} " 


srem 243 
728 FOR T=@ TO 1990:NEXT srem 236 
86 NEXT:NEXT srem 32 


Now the screen changes more slowly, so you can see what's 
happening. Also, line 60 shows you the numbers being 
POKEd into both the border (BR) and background (BG) loca- 
tions. Some of the color combinations are more attractive than 
others, while still others lend themselves better to text display. 
If you see a particular combination you like, just hit the RUN/ 
STOP key and check the values on the screen. If you can’t 
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make them out, you can press the RUN/STOP-RESTORE keys 
and then type: 


PRINT BR 
and/or 


PRINT BG 
and the last-used values will appear. 


Notice that when the background value is 14, the numbers 
on the screen disappear. The numbers are still there, but 
they’re invisible because they're the same color as the back- 
ground. If you ever PRINT or POKE a character onto the screen 
and it doesn’t show up, the first thing to do is POKE a 
different value into 53281—chances are the character is invis- 
ible because it’s the same color as the screen. 

Invisible objects. That's an important thing to remember 
—anything that is the same color as the screen background 
seems to disappear. That means that you can put invisible 
objects on the screen, and then make them suddenly reappear 
by changing either their color or the background color. Magic— 
with a single POKE. 

Here’s a program to show you how that works: 


Program 3-2. OnOff 

Remember, do not type the checksum number at the end of each line. For example, do 
not type :rem 123. Please read Appendix J, “Automatic Proofreader,” before entering 
this program. 


18 PRINT "{CLR}" srem 197 
20 POKE 53281, 14+13*({PEEK(53281)=254):GOSUB 39:GOT 
O 23 rem 114 
38 FOR I=0 TO 19:PRINT CHRS(94)"{DOWN] {RIGHT]}"; :NE 
XT: RETURN srem 211 


Line 20 acts like an on-off switch. It POKEs 53281 with 14, 
unless the location already contains a value which will create . 
that color, 254. In that case it POKEs 53281 with 1. But where 
does the 1 show in that line? 

On-off switch. A good thing to remember with the 64, 
and many other computers, is that false has a value of zero and. 
true has a value of negative one. So the expression 
(PEEK(53281) = 254) has a value of 0 if the location does not 
contain 254, and a value of -1 if 53281 does contain 254. 

13 times 0 is 0—so if 53281 holds any number other than 
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254, the program POKEs it with 14+ 0, or 14. 

13 times —1is —13, however. So if 53281 does contain 254, 
line 20 POKEs it with 14 —13, or 1. 

You could have done it another way, using two program 
lines: 
208 IF PEEK(53281)=254 THEN POKE 53281,1:GOTO 30 
25 POKE 53281,14 


In all programming, there’s usually more than one way to 
do the job. 


Default color What color does the screen usually display? 
Type RUN/STOP-RESTORE, to get the screen back to normal, 
and then type in PRINT PEEK(53281). The number 246 appears 
on the screen. That is the normal or default value of 53281—the 
number the 64 puts into that memory location once you turn it 
on. You'll notice that the value in the memory location is quite 
different than the numbers you POKE into that location to 
effect changes. Although you can use only the numbers from 0 
to 15 to POKE new colors onto the border and background 
sections of the screen, the computer stores the values differ- 
ently. To return a value between 0 and 15, you need to use the 
PEEK command like this: 


PRINT PEEK(53281) AND 15 


which will then eliminate all other values except those between 
Oand 15. 


Hide and Seek 
Why did POKEing 53281 change the background color? Can 
one POKE do that much? 

No. That POKE didn’t actually change the colors. Color 
changes are complex operations, since the 64 has to change its 
entire signal to the television or monitor screen. That signal is 
handled by the Video Interface Chip II, which does all the 
communication between the computer and the screen. The 
VIC-II chip updates the screen display 60 times a second. You 
don’t have to worry about it—it’s done automatically. The 
important thing to remember is that the VIC-II chip looks at 
certain memory locations in order to find out what the screen 
should look like. 53281 is the location where the chip looks— 
every sixtieth of a second—to find out what the background 
color should be. 53280 is the location it looks at to find out the 
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border color. By putting a different number there, you are 
telling the chip what colors you want. The VIC-II chip takes 
care of the rest. 


Screen Memory 

This principle applies to everything about screen display and 
gtaphics. The VIC-II chip in the Commodore 64 looks at a 
number of locations to find out what you want on the screen, 
By changing what is in those locations, you can tell the 
computer to display exactly what you want. You only have to 
follow the rules. 

Besides checking 53281 and 53280 to get the background 
and border colors, the chip also scans an area called screen 
memory to find out what characters to show on the screen, 
another area called color memory to see the foreground and 
background color of those characters, and still another area, 
called the character set, to find out what the character should 
actually look like. It checks other things, too, but we won't 
worry about them now. And remember, it checks all these 
areas 60 times a second. 

By changing what the computer finds when it scans 
through these memory areas, you control what gets shown on 
the screen. You can change these locations using PEEKs and 
POKEs. 

PEEKs and POKEs 
If you're already familiar with the rules about using PEEKs and 
POKEs, you can skip this section. 

POKE. This command puts a new number into a memor 
location. POKE is always followed by two numbers. The first 
number is the address that you want to change. The second 
number is the new value that you want to store there. There is 
always a comma between the two numbers: 


POKE 53281,15 


Legal POKEs. POKE always has to specify an address that 
actually exists. That means that you can’t POKE to a negative 
address or to an address higher than 65535. Also, you can only 
POKE into an address a number from 0 to 255. Negative 
numbers or numbers above 255 will give an error message and 
stop your program. 

POKE uses only integers—whole numbers, with no frac- 
tions. However, using a fraction will not stop your program. 
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POKE automatically chops off the fraction, both in the address 
and in the number you're POKEing. If you told the 64 


POKE 53281.5,14.2 
it would act as if you had entered 


POKE 53281,14 

What can you POKE? The numbers you POKE don’t 
always have to be constants. They can be variables that contain 
the values you want in your program: 


POKE ADDR,NU 
POKE C(1),N(I) 


You can even use expressions, such as: 


POKE ADDR + X,INT(X*100)/256 

Everything to the left of the comma is calculated to decide the 
address, and everything to the right of the comma becomes the 
value to POKE. 

PEEK. You use this function to find out what is stored in a 
certain location, without changing the value already there. 
PEEK is not a command like POKE—it does nothing alone. If 
you enter PEEK(648), the computer won’t know what to do. 
You also have to have a command that tells the computer to do 
something with the value it finds when it PEEKs at a certain 
memory location. The location you are PEEKing must always 
be in parentheses right after the word PEEK. 


X = PEEK(648) 
You can use PEEK with many different commands: 
PRINT PEEK(1024) 


IF PEEK(1024) = PEEK(2023) THEN N = PEEK(648) 
FOR A = 0TO PEEK(53281) 


PEEK also works with expressions, like: 
A = PEEK(INT(N/256)*256 + X +5) 


Whatever number results from the calculation becomes the 
address which is PEEKed. 


PEEKing and POKEing in Screen Memory 

POKE is the command you'll use to directly change one spot 
on the screen. You'll use the PEEK function to find out what is 
stored in a particular memory location in screen memory. 
Because the computer can’t actually see what is on the screen, 
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this is the only way your program can find out, and know, 
what is being displayed at any given spot. 

A sample program can show how this works. The value 
ADDR will be 1024. The variable X will be added to ADDR to 
select different locations on the screen: 


Program 3-3. Screenfill 


Remember, do not type the checksum number at the end of each line. For example, do 
not type :rem 123. Please read Appendix J, “Automatic Proofreader,’ before entering 
this program. 


16 ADDR=1024 srem 128 
28 POKE 53281,1 zrem 241 
38 FOR X=9 TO 1996 srem 115 
48 POKE ADDR+X, INT( RND(X)* 256) :NEXT srem 102 
58 FOR X=@ TO 1980 srem 117 
6@ POKE ADDR+X,32:NEXT srem 61 


The program is simple, yet it has quite an effect on the screen 
display. 

Lines 30 and 40 put randomly selected characters on the 
screen. Lines 50 and 60 fill the screen with the same character 
you get when you press the space bar, a blank. 

You'll notice that wherever there was writing on the screen 
before you typed in RUN, the characters are blue, and the 
inverse characters have a blue background. This is because 
you've done nothing to change color memory. That will come a 
bit later in this chapter. 


Getting the Screen under Control 

Changing the screen display is easy. The hard part is changing 
it exactly the way you want, to get the effect you want. We're 
getting there. 

Codes. Notice that the screen doesn’t display the numbers 
that resulted from the expression in line 40. Instead, it treats 
those numbers as codes for certain characters, such as letters, 
numbers, and symbols, and then prints the characters on the 
screen. These are not the same as the ASCII codes that you use 
with the CHR$ function. You get quite different results from 
these two statements, for instance: 


PRINT CHR$(94) 
POKE 1024,94 


The CHR$ function uses the ASCII code values. Almost every 
computer understands the ASCII character codes—that’s why 
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BASIC uses them, so that one program can be easily trans- 
ported to another computer. But your 64's operating system 
has a harder time with them. 


So you have two systems of code. This sample program 
shows the differences between them: 


Program 3-4. Screencodes 

Remember, do not type the checksum number at the end of each line. For example, do 
not type :rem 123. Please read Appendix J, “Automatic Proofreader,” before entering 
this program. 


18 ADDR=1924:S$S="THIS IS A TEST” :rem 7 
29 PRINT "{CLR}"SS$ srem 61 
38 FOR X=1 TO 14 trem 24 
49 A=PEEK(ADDR+X-1) rrem 84 
5@ AS=MIDS$(S$,X,1) trem 174 
6@ PRINT A;TAB(5);A$;TAB(S);:ASC(AS) zrem 297 
72 NEXT X :rem 254 


This program puts a test message on the screen, PEEKs at the 
first 14 locations of screen memory, where the message 
appears, and then PRINTs the screen code number stored at 
that address, the character, and finally the ASCII value of the 
character. By comparing the numbers, you can see how 
different they are. 

But the differences are not purely random. You'll notice 
that the screen code is always 64 less than the ASCII code, 
except for the blank space, which is 32 on both lists. To be sure 
when you use either code in your game program, however, 
refer to the ASCII Code and Screen Code tables in Appendices 
F and G of this book. 


Organization of Screen Memory 

Computer memory is one long chain of addresses, one right 
after another. One section of this chain is used as screen 
memory. The 1000 bytes from 1024 to 2023 are used as a map of 
the TV or monitor screen. Each of the 1000 bytes represents one 
of the 1000 pixels on the screen. To see just one of these pixels, 
type this in: 

{RVS} Space bar 


and then hit RETURN two times. The small square now in the 
top-left corner is one pixel of the screen. 

To convert that memory into 25 rows of 40 characters each, 
the VIC-II chip reads screen memory as if it were cut every 40 
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addresses. At every forty-first address, the VIC-II chip begins a 
new row on the screen. See the Screen Location Table in 
Appendix C. 

In reading screen memory, the VIC-II chip starts at the 
upper-left corner, moves across the top row to the right, and 
then jumps down to the leftmost character in the second row 
and moves across that row to the right. When it gets to the 
lower-right corner of the corner of the screen, it jumps back up 
to the top-left corner and starts over. 

The upper-left corner is the lowest address of screen 
memory (1024). The lower-right corner is the highest address of 
screen memory (2023). It may seem confusing that the top of 
the screen is lower in memory than the bottom of the screen, 
but it just means that the lowest-numbered address is at the 
top of the screen, and the highest-numbered address is at the 
bottom. If you remember that the 64 reads from left to right, 
from top to bottom, just as we do, and that the memory 
address follows the same order, it shouldn’t be confusing. 
Appendix C shows the address of each screen location. 

To change the screen display, the POKE command is used. 
A simple program, using a FOR/NEXT loop, can show each of 
the 1000 memory locations in screen memory: 


1@ POKE 53281,1 

26 FOR X=1624 TO 2023:POKE X,83:NEXT 

38 GOTO 36 

As soon as you type in RUN, the screen will fill with the char- 
acter whose screen code is 83, the heart-shaped figure. Each of 
the 1000 memory locations of screen memory will be filled with 
this character. You can place any of the 64’s characters, or your 
own custom characters, into any of the memory locations in 
the computer’s screen memory. 


Setting Up a Screen 

Let's say we want to draw a cross in the middle of the screen. 
The screen’s center is character 19 of row 12 (counting from 0 
for both). To find the exact address in memory of any location, 
including this one, multiply the row number (12) by 40, the 
total number of addresses per row. The answer is 480. Then 
add 19, since we want the twentieth character in that row (the 
first character is numbered 0). The answer is 499. 
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Program 3-5. Border 

Remember, do not type the checksum number at the end of each line. For example, do 
not type :rem 123. Please read Appendix J, “Automatic Proofreader,’ before entering, 
this program. 


16 SC=1624:PRINT"{CLR}" zrem 153 
28 POKE 53281,1 srem 241 
38 ROW=12:COLUMN=26:GOSUB 156 trem 242 
46 COLUMN=COLUMN-1:GOSUB 156 trem 235 
50 COLUMN=COLUMN+2:GOSUB 152 7rem 235 
60 ROW=ROW-1 : COLUMN=COLUMN-1:GOSUB L5@ z:rem 178 
70 ROW=ROW+2:GOSUB 15¢ srem 65 
8G ROW=6:FOR COLUMN=39 TO @ STEP -1:GOSUB 15@:NEXT 

srem 155 


99 COLUMN=0:FOR ROW=0 TO 24:GOSUB 15@8:NEXT:rem 252 
186 ROW=24:FOR COLUMN=%8 TO 39:GOSUB 1506:NEXT 


trem 96 

118 COLUMN=39:FOR ROW=24 TO 9 STEP -1:GOSUB 159:NE 
XT trem 251 
126 GOTO 3¢ rem 47 
158 POKE SC+COLUMN+ROW* 46, 1902: RETURN zsrem 222 


If you type in only lines 10, 20, 30, 120, and 150, then RUN it, a 
small checkered square will appear at the center of the screen. 
(RUN this program each time you enter a new line to see how 
each statement affects the screen display.) 

To put a character just to the left of that one, subtract 1 
from the value of COLUMN. Subtracting 1 always moves you 
one space to the left, unless you're already at the leftmost 
column, 


49 COLUMN=COLUMN-1:GOSUB 1598 srem 235 


To add a character to the right, add 2 to the value of COLUMN. 
Why 2? You changed the value of COLUMN in line 40 to equal 


19 (20—1=19), so to get to column 21, you must add 2 (19+2=21). 


5@ COLUMN=COLUMN+2:GOSUB 156 zrem 235 


Moving up a row is almost as simple. Remember that each 
row is 40 characters long. So the spot directly above the original 
character on the screen is 40 addresses earlier. However, in this 
sample program, the subroutine at line 150 takes care of mul- 
tiplying by 40. So to move up, you only have to subtract 1 from 
ROW. You also need to get COLUMN back to its original value. 


6@ ROW=ROW-1:COLUMN=COLUMN-1:GOSUB 15d trem 178 
Now, to move down a row, you need only add: 

78 ROW=ROW+2:GOSUB 159 rrem 65 
54 
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Borders 
Putting a border around the screen is also quite easy, using the 
POKE command. First, to fill up the top row, you should type: 


82 ROW=8:FOR COLUMN=39 TO @ STEP -1:GOSUB 15@:NEXT 


srem 155 
Now the left-hand margin: 
90 COLUMN=@:FOR ROW=08 TO 24:GOSUB 150:NEXT:rem 252 
The bottom row: 
1Q@@ ROW=24:FOR COLUMN=@ TO 39:GOSUB 15@0:NEXT 
srem 96 
And the right-hand margin: 
11@ COLUMN=39:FOR ROW=24 TO @ STEP ~1:GOSUB 15@:NE 
XT srem 251 


(We used line 120 to keep the program running, so that the 
READY message didn't spoil the screen display.) 


128 GOTO 39g zsrem 47 


You'll have to press RUN/STOP to end the program. Notice in 
lines 80 and 110 that the STEP command is used to draw the 
border from right to left, and from bottom to top, respectively. 
The STEP command is very useful when POKEing in new 
values to the screen memory when you want to make it create 
screen displays. Instead of drawing always from left to right, 
or top to bottom, the STEP command makes it seem as if the 
border, for instance, is racing around the edge of the screen. 


Random Screen Displays 

The screen you just created will appear the same every time 
you run the program. To design a screen that will be different 
every time, something very useful when designing a game, 
you need to do things a bit differently. For example, let’s take a 
look at a screen which shows a different starfield each time it 
runs. 


Program 3-6. Starfield 


Remember, do not type the checksum number at the end of each line. For example, do 
not type :rem 123. Please read Appendix J, “Automatic Proofreader,” before entering 
this program. 


19 ADDR=1024:CL=55296:POKE 53280,9:POKE 53281,0:PR 


INT” {BLK} {CLR}" srem 78 

20 Q=190*RND(9}+24:01=6*RND(9}+2 trem 282 
3@ FOR I=0 TO Q:X=1900*RND(9):N=46:GOSUB 15@:NEXT 
srem 26 
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40 FOR I=8 TO Q1:X=1908*RND(9):N=81:GOSUB 150:NEXT 


zrem 69 
5@ FOR I= TO 999:NEXT:PRINT "{CLR}":GOTO 20 

rem 69 
156 POKE ADDR+X,N:POKE CL+X,N: RETURN srem 236 


This program creates a field of distant (small) and close (large) 
stars. It waits about a second before drawing an entirely 
different star pattern. 

There are three random elements: how many near stars, 
how many distant stars, and where the stars are placed on the 
screen. 

Line 20 is where the program decides how many far stars 
(Q) and near stars (Q1) there will be. There will always be at 
least 20 and never more than 120 distant stars, while there will 
be between 2 and 8 close stars. In lines 30 and 40, these 
random values are used to decide how many stars of each size 
will be placed on the screen. Lines 30 and 40 also generate a 
random number, X, which represents the screen address 
where a star will be placed. So the number of near stars and far 
stars and their placement on the screen are all random. 

Controlling the random numbers. How do these random 
numbers work, and how are they created? The RND(n) func- 
tion generates a random fraction between 0 and 1. The number 
in parentheses (called the argument} doesn’t matter. You don’t 
have to use the same number as in the examples. Your 
program then multiplies the random fraction to get a random 
number in the range you want. 

Integers. The number that results will almost always be a 
fraction, so to get a whole number you should use the INT 
function. A=INT(500*RND(5)) will give you a number 
between 0 and 499. A=INT(5*RND(5)) will generate a number 
between 0 and 4. 

Minimums. You can establish minimums to the range of 
random numbers by adding to it. A=INT (5*RND(5) + 3) will 
give you a number between 3 and 7. 

A simple program like this will let you see this generation 
of random numbers: 

196 A=INT(5*RND(9)+55):PRINT A,:GOTO 128 


Hold the CTRL key down to slow the display. You can type 
RUN/STOP to end the program. Changing the 5 and 55 to other 
values will let you see other random numbers. 
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Changing the 9 has no effect, however. It is considered the 
argument, remember, and it has no effect on the function. Yet it 
must be there, because all functions (as opposed to commands 
such as POKE or PRINT) have to have a number in 
parentheses. 

Random numbers are vital to most games, because they 
are the easiest way of making sure the game never plays the 
same way twice. You only need to set the appropriate mini- 
mums and maximums for the RND function to make it work 
for you and your game program. 

Regular patterns. As a general rule, the more regular the 
pattern of your playfield, the simpler the program needed to 
create it. A simple pattern needs only a few lines: 

Program 3-7. Fillin 
Remember, do not type the checksum number at the end of each line. For example, do 


not type :rem 123. Please read Appendix J, “Automatic Proofreader,’ before entering 
this program. 


18 ADDR=1824:POKE 53286, 1:PRINT"{CLR}":POKE53281,1 


2:N=160 srem 61 
20 FOR X=8 TO 39 STEP 2:FOR Y=@ TO 23 STEP 2:GOSUB 
158:NEXT:NEXT trem 42 
148 END srem 138 
158 POKE ADDR+X+40*Y,N: RETURN srem 9 


Variety. Just because you use a regular pattern in the play- 
field doesn’t mean it has to be dull. You can make slight 
changes in your screen setup that will make a big difference on 
the TV or monitor. Adding these four lines to the program you 
just typed does that: 


Program 3-7. Fillin, Cont. 


39 READ N:IF N=@ THEN RESTORE:N=169 3;rem 
48 GOTO 20 zrem 255 
15@ POKE ADDR+X+1+(¥+1)*49,N;POKE ADDR+X+40*Y,N:RE 

TURN srem 165 


208 DATA 102,81,78,77,86,127,255,79,88,8 :rem 189 


Now the program READs a table of information in the 
DATA statement in line 200. Each new number causes a new 
character to print to the screen. You can experiment by adding 
new numbers to the table, as long as you make sure that the 
only 0 in the list comes at the very end. 

You'll notice that the program keeps recycling through the 
characters, even though each is listed only once in line 200. 
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Line 30 is the key to this. The program READs the value of N 
from the list, remembers where it left off in the table and then 
READs the next value in order. When it sees a zero, the IF 
THEN statement notices and the RESTORE statement is 
executed. RESTORE simply puts the pointer back to the begin- 
ning of the list. The value of N is set to 160 again, and the 
entire loop starts over. © 

Many of the patterns conceal the fact that the screen is 
made up of 1000 little rectangles. Just because the 64 uses char- 
acters for its graphics doesn’t mean you have to have 
rectangular-looking screens. 

You can see how much variety comes from changing the 
screen color. Change the 12 in line 10 to a 1, or 7, and see how 
much difference it makes. Variety can come from many 
different sources when you're designing screens for your 


game. 


Seeing What's on the Screen 

Now that you have a checkerboard of characters on the screen, 
how can you fill in the spaces between them? All you need is a 
line that PEEKs at every location on the screen, and wherever 
it finds a spot that meets certain conditions, it POKEs a new 
character there. 

Here’s a variation on the checkerboard program that 
shows how the PEEK function can be used. Consider it care- 
fully, for this technique will be vital later, when you’re figuring 
out whether a figure has bumped into something on the 
screen. 


Program 3-8. Checkerboard 


Remember, do not type the checksum number at the end of each line. For example, do 
not type :vem 123. Please read Appendix J, “Automatic Proofreader,’ before entering 
this program. 


18 ADDR=1924: POKES3281,6:POKE 53286,1:PRINT"{CLR}" 


: POKE53281,1 :N=168:P=81 :rem 9 

28 FOR X=@ TO 38 STEP 2:FOR Y=8 TO 23 STEP 2:GOSUB 
15@:NEXT : NEXT trem 41 

38 FOR X=@ TO 959:IF PEEK(ADDR+X}<>N THEN POKE ADD 
R+X,P srem 118 
46 NEXT:READ N,P:IF N=@ THEN RESTORE:N=16@8:rem 246 
59 GOTO 20 srem 2 
158 POKE ADDR+X+46*Y,N trem 239 
16@ POKE ADDR+X+1+(¥+1)*48,N: RETURN :rem 19 
200 DATA 86,78,77,127,255,95,185, 79, 88,88, 74,113,1 
12,32,8,81 srem 159 
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You'll notice in line 30 that the program looks at the screen, from 
address 1024 to location 1983, but the P character is POKEd in 
only when that spot on the screen doesn’t contain the current 
character N. 

Multiple READs. In line 40, the program READs two 
numbers, N and P. This means that in the DATA table, the 
numbers for N alternate with the numbers for P. If you change 
this DATA statement, you need to make sure that your list has 
an even number of values, and that there is a zero in the 
second-to-last position. 

Combining characters. You can see how the alternating 
characters can combine to create new shapes that do not exist 
in the 64’s standard graphic character set. That's how you can 
make a larger picture for your game screen—combining several 
shapes to make one design. The graphics characters built into 
the 64 character set—screen codes 64-127 and 192-255, and 
ASCII codes 96-127 and 161-191 are designed so that many of 
them fit together this way to let you make continuous draw- 
ings easily. 


Screen Displays with PRINT 

Just because you can POKE to screen memory doesn’t mean 
you always want to. Sometimes PRINT statements can be even 
more effective, since you can print entire strings at once. 
Setting up the PRINT statements takes more programming, 
and more typing, but once they’re set up they can be PRINTed 
instantly on the screen. That is one of the values of the PRINT 
statement—its speed of execution. This program shows how 
quickly PRINTing a string can change the screen. Think of it as 
a wiring diagram, and imagine that you’re controlling a spark 
of electricity trying to escape from the corner of the screen. 


Program 3-9. Spark 

Remember, do not type the checksum number at the end of each line. For example, do 
not type :rem 123. Please read Appendix }, “Automatic Proofreader,” before entering 
this program. 


19 DIM A$(6),S$(8):POKE 53281,1:POKE 53280,1:PRINT 


"{CLR} [BLK}":GOSUB 58¢ :rem 97 
29 PRINT“ {HOME} {DOWN}":FOR I=@ TO 8:PRINT AS$(@):NE 
XT I trem 128 
36 PRINT" {HOME}":GOSUB 15@:PRINT A$(N+3):PRINT S$( 
8)+A$(6-N) srem 25 


4@ PRINT" {HOME} {DOWN} "+S$(S}+AS(@}:GOSUB 162:GOSUB 
170:PRINT "{HOME}{DOWN}"+S$(S)+AS(N) srem 247 
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5@ FOR I=0 TO 2090:NEXT:GOTO 30 srem 182 

154 N=INT(2*RND(9)}:RETURN srem 65 

168 N=INT(3*RND(9)):RETURN srem 67 

176 S=INT(7*RND(9)+1):RETURN - grem 169 
5@@ FOR X=l TO 38:A${(@)=A$(@)+CHRS$(221):NEXT 

:rem 3@ 

5198 FOR I=l TO 5 STEP 4:FOR X=l TO 19:A$(I)=AS(I)+ 

CHRS (186 )+CHRS$ (107) :NEXT:NEXT srem @ 

520 FOR I=2 TO 6 STEP 4:A${1I)=CHR$(221):FOR X=l TO 

18 :rem 207 

525 AS(I)=A$(1)+CHRS (106 )+CHRS (1967) :NEXT?A$(1I)=AS{ 

I)+CHRS$(221):NEXT srem 121 

539 FOR I=0 TO 2:A${1I)=A$(1I)+CHRS$(32)+CHRS{ 32) :NEX 

T trem 188 
549 FOR X=1 TO 38:A$(@)=A$(9)+CHR$( 221) :NEXT 

srem 34 

550 FOR I=l1 TO 3 STEP 2:FOR X=1 TO 19:AS(I)=A$(I}+ 

CHR$(117)+CHRS$ (105) :NEXT:NEXT srem 9 

56@ FOR I[=2 TO 4 STEP 2:A$(I)=AS$(1I)+CHR$(221):FOR 

{SPACE}X=l TO 18 trem 249 

565 A$(I)=AS(1)+CHR$(117)+CHRS (105) :NEXT:A$(I)=A$( 

I)+CHRS${221):NEXT zrem 125 

570 S$(@)={"{2 DOWN}”":FOR I=1 TO 8:S$(1)=sS$(I-1)+" 

{2 DOWN}" :NEXT: RETURN srem 5 


As the screen changes, the spark will be forced onto new 
tracks. Right now, the changes are random, generated with the 
‘RND(n) function, but in a game you might let the player 
control the center interruption, moving i; up or down, left or 
right with the keyboard, to counter the randomly shifting top 
and bottom strips. You may want to save this program—we'll 
be adding the spark and keyboard controls later. 


Moving the Cursor with PRINT 
If you're using PRINT statements to create your own screen 
display, you need to have some way of starting the PRINT 
exactly where you want it. You do this by including the HOME 
and cursor control characters in the strings you are PRINTing. 
This is easy to do with the 64. Once you’ve typed the quota- 
tion mark to start the string, pressing the HOME key or the 
cursor control keys will cause that character to be included in 
the string, instead of simply moving the cursor. When the 
string is PRINTed, the cursor will then move just as if you were 
pressing the cursor control keys yourself. 

The easiest way to make sure the cursor always ends up in 
the right place is to PRINT the HOME character, either by 
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making it the first character in a string, or by using CHR$(19). 
This moves the cursor to the upper-left corner of the screen. 
You can then enter as many CURSOR DOWN and CURSOR 
RIGHT commands as you need to get the cursor to the exact 
position where you want the next string to start PRINTing. 

An alternative to using HOME and CURSOR RIGHT char- 
acters is to use the TAB function. TAB will move the cursor to 
an absolute column position. That means that no matter where 
the cursor is on a line, PRINT TAB(10) will move the cursor to 
column 10 on that line, even if it means moving backward. In 
effect, TAB(n) finds the left edge of the screen and counts 1 
columns to the right. If the n in TAB(n) is a number greater 
than 39, TAB will move to the next line. A combination of 
HOME and TAB(n) can locate the cursor anywhere on the 
screen. 

Another function, SPC(n), is sometimes used to move the 
cursor. The SPC(n) function starts counting from the current 
cursor position, and then moves n spaces to the right. This is 
not as valuable a function as TAB(n), since it is a relative, 
rather than an absolute, cursor-positioning command. 

This program demonstrates several PRINT functions, 
including the HOME and TAB(n) functions, as well as the 
cursor control character within PRINT strings. Things such as 
game titles, scores, time remaining, and other game indicators 
lend themselves well to the use of the PRINT command. This 
program creates a simple game screen, complete with title, 
total score, and time remaining. 


Program 3-10. Printscreen 

Remember, do not type the checksum number at the end of each line. For example, do 
not type :rem 123, Please read Appendix J, “Automatic Proofreader,” before entering 
this program. 


18 PRINT" {CLR}":POKE 53291, 2:TR=99 zrem 28 
20 FOR X=1624 TO 1063:GOSUB 20@:NEXT X :rem 47 
38 FOR X=1963 TO 2623 STEP 4@:GOSUB 20@:NEXT 
trem 126 
49 FOR X=2023 TO 1983 STEP -1:GOSUB 20@:NEXT x 
rem 214 
5@ FOR X=1984 TO 1024 STEP ~46:GOSUB 20@0:NEXT X 
trem i1 
60 FOR X=1184 TO 1224:GOSUB 20@:NEXT xX zrem 57 
7@ PRINT "{HOME} {DOWN} {WHT}";TAB(15) “SPACE GAME” 
zrem 244 
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89 PRINT “{DOWN} {2° RIGHT}{YEL}TIME REMAINING: "TR;" 


{5 RIGHT} {GRN}SCORE: "SC; “{WHT}" :rem 21 
9@ TR=TR-1:IF TR=@ THEN TR=99 srem 176 
108 SC=SC+5:IF SC>265 THEN SC= srem 192 
119 FOR T=6 TO 10080:NEXT srem 23 
126 GOTO 728 srem 51 
209 POKE X,42:POKE X+54272,3 trem 250 
218 FOR T=@ TO 16:NEXT :rem 184 
228 RETURN srem 116 


Notice that the character colors were changed in lines 70 and 
80. You’ve already seen how to alter screen colors using the 
POKE commands. Colors can also be changed with the PRINT 
statement, simply by entering a color key as part of the string 
to be PRINTed. Pressing CTRL and a color key, on the top row 
of the keyboard, changes all the following characters PRINTed 
to that color, until another color key is used. In line 80, for 
example, there are two color changes, from yellow to green. 

Let's take a closer look at color on the 64, and especially 
color memory. It does have an important effect on what you 
see displayed on the screen. 


Color Memory 

Color memory is a map of screen locations, just like screen 
memory, only instead of interpreting the numbers stored there 
as characters, the VIC-II chip interprets the numbers in color 
memory as color codes. 

Color memory is a perfect shadow of screen memory. For 
each of the 1000 locations in screen memory, there is a 
matching location in color memory that controls the color of 
whatever character is displayed on the screen. For example, the 
tenth byte of color memory controls the tenth character in 
screen memory. The color memory locations begin at 55296 
and end at 56295. Appendix D shows each of the color 
memory locations in the 64. 

Because of this arrangement, you can individually control 
the color of any character on the screen. By changing a partic- 
ular character to the background color, you can make that char- 
acter vanish. Or you can turn a single character into eight 
distinctly different characters by giving them different colors. 

Although you can change character color with the PRINT 
statements, as you've seen, it is usually better to POKE colors 
directly into color memory. Refer to the Screen Color Codes in 
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Appendix E for the numbers to POKE into color memory. 
You'll notice that they’re the same values used to change the 
screen’s background and border colors. 


PEEKing and POKEing Color Memory 
Color memory is a peculiar area of memory in the 64. You can’t 
POKE any number higher than 15 into it. The numbers from 0 
to 15 use the lowest four bits of a byte; if you POKE a number 
higher than 15 into the color memory, the upper four bits of 
that number are chopped off. POKEing 255 into a color 
memory location would be the same as using the number 15. 
However, if you PEEK at locations in color memory, you 
can easily get numbers higher than 15. The 64 is putting 
garbage in those upper four bits. To use the PEEK function 
correctly, then, you should AND the value you get with 15, to 
erase the garbage in the upper four bits: 


COLOR = PEEK(LOCATION) AND 15 


After this program line is used, the variable COLOR would 
contain the color code stored in that LOCATION of color 
memory. 


Finding Screen Memory 
Relocatable programs. So far, we've been using the 
number 1024 as an absolute location for screen memory. 
(Remember that color memory always begins at location 
55296.) But when you write a program, you need to be able to 
RUN it, no matter where screen memory begins. This is espe- 
cially true when you switch banks on the 64, for instance when 
you re using bitmapping to create a high-resolution screen. 
Instead of using 1024 as the screen memory, then, we'll 
write a short program line that finds out where screen memory 
is. Fortunately, the 64 always stores the address of the start of 
screen memory in the upper four bits of location 53272. To find 
screen memory, you could use a program line like this: 
SC = (PEEK(53272)AND 240)*64 
From then on, the variable SC (for SCreen) will contain the 
address of the upper-left corner of the screen. You could 
include this line at the beginning of a program to show this 


address. 
If you've relocated screen memory (for whatever 
purpose), remember that you'll have to do a few more things 
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to make the computer work correctly. If you’ve switched video 
banks, you'll have to add the starting bank address to the 
value SC in order to show the true location of screen memory. 
For example, if you switched to the video bank which begins at 
location 32768, you would need to use: 


SC = ((PEEK(53272)AND 240)*64) + 32768 


to show screen memory’s true location. 

You'll also have to POKE a new value into location 648, 
where the 64's operating system looks to find where screen 
memory is. You do this by: 


POKE 648,SC/256 


This sets a pointer to let the 64 know where to look for screen 
memory. 

On the Commodore 64, color memory is always at location 
55296. It never changes. If you use the formula CM = 55296, 
CM will always equal the address of the upper-left corner of 
color memory. To show both screen memory and color 
memory in one program line, then, you could use: 


SC =(PEEK(53272)AND 240)*64:CM = 55296 


Playing with Color Memory 
Here’s a short program that will show you how color memory 
affects the screen—and which color code produces each color. 


Program 3-11. Colorpeek 

Remember, do not type the checksum number at the end of each line. For example, do 
not type :rem 123. Please read Appendix J, “Automatic Proofreader,’ before entering 
this program. 

988 SC=(PEEK(53272)AND 248)*64:CM=55296 :rem 69 
918 FOR J=@ TO 15:POKE 53281,J7:POKE 53286,1:PRINT" 


{CLR}" trem 137 
929 FOR I=8 TO 1889 :N=INT{(RND(9}*8) : POKE SC+I,N+48 
:POKE CM+I,N srem 216 
934 NEXT:NEXT:GOTO 9108 srem 97 


Line 900 establishes the values of CM and SC. Line 910 sets the 
background color to each of the possible colors. Line 920 first 
generates a random number in the range 0 to 7. It POKEs the 
screen code for that number character (N + 48) into screen 
memory (SC +1), and then POKEs the color code into the 
appropriate location in color memory (CM+1). The same vari- 
able, I, leads to the corresponding locations in both screen and 
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color memory. . 
You'll notice that there are some blanks. These are the 
color codes that are identical to the background color. What- 
ever character is displayed is invisible because there is no 
contrast between the background color and the character color. 
To see this working with graphics characters, try adding 
these lines to Program 3-8, Checkerboard. 


Program 3-12. Checkerboard, Cont. 

Remember, do not type the checksum number at the end of each line. For example, do 

not type :rem 123. Please read Appendix J, “Automatic Proofreader,” before entering 

this program. 

19 ADDR=(PEEK(53272)AND 248)*64:CM=55296 :rem 146 

15 POKE53281,1:POKE 53280,1:PRINT"({CLR}" :N=160:P=8 
1 


trem 231 
25 GOSUB 308 srem 122 
49 NEXT:READ N,P:IF N=@ THEN RESTORE:N=16G:rem 246 
45 GOSUB 3289 srem 124 
369 Q=INT(RND(9)*8):IF Q=1 THEN 396 srem 119 
31@ IF Q=PEEK(CM) AND 7 THEN 399 srem 131 
328 FOR I=@ TO 959:POKE CM+I,Q:NEXT I:RETURN 
:rem 66 


Now the background will change with every screen change. 
The IF statement in line 300 protects against having characters 
the same color as the background. Line 310 protects against 
having the character color the same twice in a row. 

Or you can start again with the original version of Check- 
erboard, and add these lines instead: 


Program 3-13. Checkerboard, Again 


Remember, do not type the checksum number at the end of each line. For example, do 
not type :ver 123. Please read Appendix J, “Automatic Proofreader,’ before entering 
this program. 

1@ ADDR=(PEEK(53272)AND 249}*64:CM=55296 :rem 146 
15 POKES3281,1:POKE 53286,1:PRINT“{CLR}”:N=160:P=8 


1:GOSUB 308 srem 52 
49 NEXT:READ N,P:IF N=@ THEN RESTORE:N=16@:rem 246 


306 FOR I=6 TO 9359:N=INT(RND(9)*8):POKE CM+1,N:NEX 
T I:RETURN srem 14 


Now the program assigns each location in color memory its 
own random color value. What was once a completely regular, 
symmetrical screen now looks completely unpredictable. Char- 
acters that used to fit together to make combined patterns are 


now clearly separate. 
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Moving On 

If any of the material in this chapter is still unclear to you, it 
might be a good idea to go back and review it, studying the 
example programs to see how they work. Without a clear 
understanding of screen color and color memory and how to 
use them, it will be harder to make use of the more advanced 
techniques shown in the rest of the book. 
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Custom Characters 


The 64 comes with a lot of shapes you can put on the screen 
just by pressing keys or using PRINT statements in your 
program. So far, the only characters we’ve used to make 
shapes on the screen are graphics characters. Graphics charac- 
ters are shapes that don’t mean anything. They aren't letters, 
numbers, or symbols like %, * $, or <. The only reason 
Commodore included them with your computer was so you 
could make shapes. Good games can be programmed using 
those shapes alone. 

Sometimes, however, the graphics characters just aren’t 
enough. There is no single character that looks like a human 
being, for instance. Or a dog. Or a train. Fortunately, the 64 is 
flexible enough to let you create your own characters. 


How Characters Get Their Shapes 

When you press a key on the 64, a character (letter, number, or 
symbol) appears on the screen. Press another key, and another 
character appears just to the right of it, or on the next line. 

On a typewriter, the same thing happens. Press a key, and 
there’s a character on the paper. Whenever you press A, you get 
an A on the paper. And it’s always the same A, because the 
shape of that character is always there, stored as a pattern of 
raised metal, ready to be slammed through the ribbon into the 
paper. 

The 64 doesn’t use all that noisy machinery, but it does 
store the character pattern, and when you press a key, the 64 
goes to the right pattern, takes it to the right location on the 
screen, and displays it there. 


Character Memory 

The area in memory where the character patterns are stored is 
called character memory or the character set. The built-in character 
set takes up 4K of memory, from 53248 to 57343. 

How big is it really? Character sets don’t really take that 
much space. The built-in character set is actually two character 
sets. You switch from one to the other when you press SHIFT- 
Commodore. Each of those character sets is only 2K, and 2K is 
the largest character set that the 64 can address at any one 
time. 

That 2K set is even smaller than it looks. The first 1K is the 
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regular character set; the second 1K consists of the reversed 
character set-—the characters that are displayed when you 
press keys after pressing CTRL-9. So the basic character set 
consists of 1K, 1024 bytes of memory. 

Finding the pattern you want. The first 512 bytes are the 
patterns for the letter, number, and symbol characters—the 
characters with screen codes from 0 to 63. The next 512 bytes 
are the patterns for the graphics characters, with screen codes 
from 64 to 127. 

The character patterns are organized in the same order as 
screen codes. The pattern for the character with screen code 0, 
the @ character, is the first one in character memory; the 
pattern for A, with screen code 1, is next; then the pattern for 
B, with screen code 2, and so on. 

This means you can use the screen code as an index into 
the character set. In fact, that’s just what the VIC-II chip does. 
When it reads a number in screen memory (in a text mode, of 
course, not in a bitmapped mode), it goes to the starting 
address of character memory, counts in the correct number of 
bytes, and displays whatever pattern it finds there. 

This relationship between screen codes and character 
patterns holds up even when you have changed the pattern for 
a character. The 64 doesn’t care whether an A looks like an A. If 
it finds screen code 1, it will display character pattern 1, even if 
you have redefined it to look like an alien invader. 

How far to count. Each character pattern is eight bytes 
long. This means that when the VIC-II is looking for the char- 
acter pattern, it looks for the pattern to start at the start of char- 
acter memory plus eight times the screen code. This means that 
the pattern for D, with screen code 4, starts at byte 8*4, or 32, 
in character memory. The pattern for the question mark, screen 
code 63, starts at 8*63, or byte 504 of character memory. 


The Character Patterns . 

Each character pattern is eight bytes long. The character 
pattern is an exact map of what the character is shaped like on 
the screen. 

If you look closely at the TV screen (and if you have good 
eyes and your TV has good resolution), you'll see that each 
individual character is made up of little dots, arranged in rows 
and columns. Each character is eight dots wide and eight dots 
high. That makes exactly 64 dots. By an amazing coincidence, 
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each byte of the eight-byte pattern contains eight bits. That 
makes 64 bits in the pattern. 

A lighted billboard. Think of the character on the screen 
as a signboard with 64 light bulbs, as shown in Figure 4-1. 
Some of the bulbs are on, and some are off. 

Think of the character pattern in character memory as a 
series of switches, as shown in Figure 4-2. When a switch is 
on, the corresponding light bulb is turned on. When a switch 
is off, the bulb is off. 
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Each byte of the character pattern contains eight switches, 
corresponding to a row (horizontal line of dots) in the char- 
acter pattern. The top row is controlled by byte 0 of the char- 
acter pattern. The bottom row is controlled by byte 7. 
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Figure 4-2. On-Off Switches 
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So to find the byte controlling row 3 (the fourth row from 
the top) of the D character (screen code 4), with the built-in 
character set starting at 53248, you would PEEK at location 
53248 + 844-3. The formula is: 
character memory + 8 * screen code + byte number 

On bits and off bits. How are the switches turned off or 
on? Each bit in the byte can be either a 1 or a 0. If it is a 0, the 
switch is off, and the background color is displayed at that dot 
in the character’s pattern. If the bit is a 1, the switch is on, and 
the foreground color (the color assigned for that position by its 


72 


GPEC iG SG Cw EE GeO Cr aCe MC ONG Gy CeCe 1G 


~ 
~~ 


LD DP FD DD DS DD 2D FD DD PB DD TD DP DDD 


Custom Characters Zi 


byte in color memory) is displayed at that dot. Figure 4-3 
shows the bit patterns (and their decimal equivalents) for each 
byte of our lighted signboard. 


Figure 4-3. Bits of the Character Pattern 
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Here’s a program that lets you look at the bit pattern for 
any character in character memory: 


Program 4-1. Patterns 


Remember, do not type the checksum number at the end of each line. For example, do 
not type :rent 123. Please read Appendix J, “Automatic Proofreader,’ before entering 
this program. 


5 DIM A$(7),X$(1),A(7)} :rem 27 
19 VM=@:CH=53248 srem 121 
15 xX$(G)="P"sx$(l)="{RVS} [OFF}"sc$="E8 TJ" 

srem 75 
97 REM trem 84 
98 REM MAIN LOOP :rem 180 
99 REM srem 8&6 
190 GET AS:IF AS=“" THEN 1986 srem 69 
118 A=ASC(AS}):Q=A:GOSUB 280:GOSUB 390 :rem 63 


12@ PRINT B$:PRINT A$:FOR I=@ TO 7:PRINT AS$(1I);A(I 


)sNEXT:PRINT C$ srem 239 
139 GoTo 108 trem 94 
197 REM trem 133 
198 REM CONVERT ASCII TO SCREEN CODE srem 142 
199 REM trem 135 


206 IF A>63 AND A<96 THEN A=A-64:RETURN srem 103 
210 IF A>95 AND A<128 THEN A=A-32:RETURN :rem 148 
226 IF A>1S59 AND A<192 THEN A=A-64:RETURN :rem 204 
230 IF A>127 AND A<16@ THEN A=A+64:RETURN srem 193 
248 IF A<32 THEN A=A+128: RETURN trem 213 
250 IF A>191 AND A<255 THEN A=A-128:RETURN:rem 252 
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266 IF A=255 THEN A=94:RETURN :rem 117 
297 REM rrem 134 
298 REM MAKE STRINGS TO PRINT PATTERN :rem 29 
239 REM srem 136 
300 BS="SCREEN CODE "+STRS$(A) trem 47 
318 IF A<128 THEN T=A:GOSUB 4G :AS=AS+" {2 SPACESIC 
HRS ("+STRS(T)+")" rrem 232 
320 IF A>127 THEN T=A-128:GOSUB 486:AS="REVERSE-"+ 
CHRS(T)+"{2 SPACES}CHR${"+STRS$(Q)+"}" zsrem 168 
338 X=8*A:GOSUB 888:GOSUB 796 srem 113 
398 RETURN srem 124 
397 REM srem 135 
398 REM CONVERT SCREEN CODE TO ASCII trem 144 
399 REM srem 137 
4006 IF T<32 THEN T=T+64: RETURN zrem 219 
419 IF T>63 AND T<96 THEN T=T+32:; RETURN srem 175 
420 IF T>95 THEN T=T+64: RETURN srem 232 
438 RETURN trem 119 
697 REM trem 138 
698 REM TAKE APART PATTERN BYTES :rem 265 
699 REM trem 148 
76@ FOR I=@ TO 7:A$(I)=""sNEXT srem 65 
718 FOR I=@ TO 7:W=A(I):FOR J=@ TO 7 srem 186 
720 W=2*wW:IF W255 THEN W=W-256:AS$(I)=A$(1)+X$(1): 
GOTO 748 rrem 186 
730 AS(I)=AS(I)+X$(8) trem 253 
740 NEXT J:NEXT I:RETURN rrem @ 
797 REM zrem 139 
798 REM GET PATTERN BYTES rem 17 
799 REM :rem 141 
802 POKE 56334, PEEK(56334)AND 254:POKE 1,PEEK{(1)AN 
D 251 trem 185 
819 PT=CH+X:FOR I=8 TO 7:A(1I)=PEEK(PT+I1):NEXT 
:rem 146 
820 POKE 1,PEEK(1) OR 4:POKE 56334, PEEK(56334)OR 1 
rrem 137 
83@ RETURN trem 123 
Changing Shapes 


Before you can change the shape of a character, you have to 
move character memory. This is because the built-in character 
set is ROM, read only memory. The bits and bytes are perma- 


nently burned into the chip. You could POKE there all day and 


not a shape would change. You have to locate character 
memory somewhere else. 


Moving Character Memory 
Fortunately, a single POKE will tell the 64 to look for the char- 
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acter memory block in a different place. The operating system 
uses location 53272 as a pointer to the start of the character 
memory block. There are certain rules to follow in locating 
character memory. 

Character memory must be within the video block. The 
video block is the 16K that the VIC-H chip can address at any 
one time. Just like screen memory, the bitmap, and the sprite 
shape tables, character memory must be located within that 
block. When you first switch on your 64, the video block is the 
16K from 0 to 16383. The VIC-II will look for character memory 
within that block. 

The only exception is the ROM character set. The 64 is 
designed so that even though the character ROM is at 53248, 
the VIC-II thinks that it’s finding character memory at 4096 
when the video block starts at 0. You can’t fool the machine 
that way. Your character patterns have to be where the VIC-II 
expects to find them, or it won't see them at all. 

Character memory starts on a 2K boundary. Since a full 
character set (including reversed characters) takes 2K, there are 
only eight possible blocks within the 16K video block where 
character memory can be located—at byte 0 of the video block, 
or byte 2048, 4096, 6144, 8192, 10240, 12288, or 14336. In other 
words, character memory has to start at a 2K boundary—the 
OK, 2K, 4K, 6K, 8K, 10K, 12K, or 14K boundary. 

If the video block starts somewhere other than address 0, 
then the above addresses must be added to the video block 
address to find the actual address of character memory. For 
instance, if the video block starts at 32768 (the 32K boundary), 
and the 12K boundary is selected for the start of character 
memory, then the real address of character memory is 32768 
plus 12288, or 45056. That's where you would POKE the 
patterns for our custom character set. But you would still 
POKE the number 12 into 53272, since character memory is 
still at the 12K boundary within the video block. 

Use only the lower four bits of 53272. Only bits 0-3 (the 
lower, or rightmost, four bits) of the byte at 53272 control char- 
acter memory. The upper four bits control screen memory. So 
when changing the location of character memory, you must 
protect the screen memory information. 

If you wanted to tell the VIC-II to find character memory 
at the 12K boundary, you would not just POKE 53272,12. The 
number 12 in binary is 00001100. The lower nybble (four bits) is 
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1100, the code for the 12K boundary for character memory. But 
the upper nybble is 0000, and that tells the VIC-II to find 
screen memory at block 0. That's fine, if screen memory is 
actually at block 0. But when you turn on the 64, screen 
memory is at 1024, screen memory block 1. And if you want it 
to stay there, you can’t POKE 53272,12. 

You can protect the high (leftmost) nybble by using this 
formula to POKE a character memory code into 53272. To put 
character memory at the 6K block, you would use this 
statement: 


POKE 53272, (PEEK(53272)AND 240) OR 6 


Likewise, when you are relocating screen memory and 
you don’t want to change the location of the character set, you 
must protect the lower nybble. If you wanted to locate screen 
memory at block 11 (screen memory can be located at 1K 
boundaries), you would use this statement: 


POKE 53272,(PEEK(53272)AND 15) OR 176 


(176 is 11*16. To turn a number from 0 to 15 into a high nybble 
value, just multiply it by 16.) 

Be careful where you put character memory. If the video 
block is at 0, you’ve got to be aware of all the other things 
using that section of RAM. For instance, you wouldn’t want to 
locate the character set at 0, because 0-1023 is used by the 
operating system and BASIC for vital operations, and 
1024-2047 is screen memory. You wouldn't want to put char- 
acter memory at block 2, either, because that’s the start of your 
BASIC program. In fact, the best place for a character set when 
the video block starts at 0 is at the 14K boundary, so that 
there'll be a full 12K, from 2048 to 14335, for your BASIC 


program. 


Moving the Video Block 
If your BASIC program is going to run longer than 12K, you 
will need to move the video block. This is a bit trickier than 
moving character memory. First, you have to tell the VIC-I 
which 16K block to look at. Then you have to relocate screen 
memory, character memory, and, if you’re using them, the 
bitmap and sprite shape blocks within the video block. 

The video block codes. The VIC-II gets its video block 
instruction from location 56576. The video block is assigned 
with the following codes: 


76 


CPC CGO OCC Cr CGC CGO Gri GC Her Gi Grrl Ce 


~ 
— 


2D DD DODD DD DD DODD DD PD oS OS OE OE SD 


Custom Characters [Zi 


code: 0—video block starting location: 49152 
code: 1—video block starting location: 32768 
code: 2—video block starting location: 16384 
code: 3—video block starting location: 0 


It takes two steps to tell the VIC-II to locate the video 
block at 32768 (code 1). First, turn on bits 0 and 1 of location 
56578: 


POKE 56578,PEEK(56578) OR 3 


Then POKE the video bank code into 56576. Since location 
56576 also controls other functions, the rest of the byte needs 
to be protected by using this routine. 


POKE 56576,(PEEK(56576)AND 252) OR 1 


The video bank is now set to start at 32768. 

Reconfiguring video memory. Now that the video block 
has been moved, you'll want to make sure that screen 
memory, character memory, and other blocks are in safe loca- 
tions. For instance, if the video block starts at 32768, you have 
to avoid the entire upper 8K of the block, from 40960 to 49151, 
because that’s where the BASIC ROM sits. That’s no problem in 
text modes—the remaining 8K gives you room for two char- 
acter sets (2K each), two screen memory blocks {1K each), and 
32 separate sprite shape blocks (64 bytes each). The ability to 
have multiple screen memory blocks and character memory 
blocks is very useful, for reasons that will be explained in 
Chapter 5, on character animation. 

However, if you’re using a bitmap, you're in trouble 
because the bitmap alone uses 8K. Also, any additional 
cartridge will use 32768 to 40959—wiping out the rest of the 
block. (You'll almost never have a cartridge in place when 
running a BASIC program.) 

If you use the block starting at 49152 (code 0), you have 
even more ROMs to cope with—everything above 53247 is 
used for ROMs (I/O, Kernal, Character ROM, Color RAM). But 
that still leaves you 4K from 49152 to 53247—-enough room for 
one character set, one screen memory, and 16 sprite patterns. 

The block at 16384 is completely free of ROMs, so you can 
use any of it—when you're using a bitmap, you almost have to 
put it here. However, you still have the problem of large BASIC 
programs creeping up from their starting point at 2048 until 
they start spilling into this block. If your BASIC program is 


SEE Custom Characters 


large enough that you have to move the video block at all, 
you'll probably want to move the video block even higher than 
this just to make sure it doesn’t get in the way again. 

Conventional variable names. For the rest of this chapter 
and the next, we'll assume that the variable VM contains the 
starting address of the video block, and the variable CH 
contains the starting address of character memory within the 
video block, and SC contains the starting address of screen 
memory within the video block. That is, if the video block starts 
at 32768 and character memory starts at the 6K boundary 
within the block, the variable VM would contain 32768 and the 
variable CH would contain 6144. To find the absolute address of 
character memory, you would add VM and CH. 

If there are two or more character sets, the array variable 
CH() will be used to express their addresses. 

This is so that all the sample programs will work regard- 
less of how you have configured video memory. If you are 
using the video block at 0, you can omit the variable VM from 
these routines. 


New Shapes 

Now that you have relocated character memory (and, if neces- 
sary, the video block), you’re ready to start putting in your 
own character shapes. In fact, you have to put in your own 
character shapes. If you have tried out these POKEs, you've 
already discovered that when you move character memory, the 
VIC-II starts reading whatever's there, even if it's garbage or 
nothing at all—it doesn’t care whether there’s a sensible 
pattern or not; it just counts in the right number of bytes from 
the start of character memory and displays whatever bit 
pattern it finds there. 

The shape matrix. So let's get a few shapes ready to 
display. Figure 4-4 shows four characters on character grids. 
The shaded squares represent 1 bits; the unshaded squares 
represent 0 bits. The numbers above the columns on the grids 
represent the value of an on (1) bit in that position. To find the 
decimal value of each byte, just add up the values of the on bits 
in each row. Those are the numbers to put in DATA state- 
ments, in order from top to bottom. 
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Figure 4-4, Patterns on the Character Grid 
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Figure 4-5. Blank Character Grid 


Bit 7 6 5 4 3 2 1 «9 
Decimal Decimal 
Value Values 


of on Bits 128 64 32 16 8 


Decimal 128 64 32 16 
Value 
of on Bits 


Figure 4-5 is a blank character grid that you can photocopy 
and use to create your own characters. Just shade the dots you 
want to have on; then calculate the sums of the on bits for each 
byte and arrange them in DATA statements. 

From DATA statements to character memory. Once you 
have the DATA statements for each character, your program 
must READ the values and POKE them into the right place in 
memory. 

What is the right place? It depends on which screen code 
you want the custom character to have. For instance, if you 
want the new character to replace @, which has a screen code 
of 0, you would POKE the pattern at VM+CH +0. If you want 
the new character to replace the left bracket ([), which has a 
screen code of 27, you would POKE the pattern at 
VM + CH + 8°27. If the variable CS contains the screen code, 
this formula will always find the right starting address for the 
character pattern: 


POKE VM + CH + 8*CS, character pattern data 
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Of course, a single POKE won't do the job—it takes eight 
POKEs, since there are eight bytes in a character pattern. You 
will use a loop to put the whole character pattern in place: 


FOR I=0 TO 7: READ N: POKE VM+ CH + 8°CS +1, N: NEXT 


This loop will run slowly, since you are performing three addi- 
tions and one pay Setar each time through the loop. The 
same thing will go faster if your loop looks like this: 


X=VM+CH + 8*CS: FOR I= X TO X+7: READ N: POKE I, N: 
NEXT 

If you are creating patterns for several characters in a 
row— for instance, the left bracket, British pound, right 
bracket, up arrow, and left arrow (screen codes 27-31)—you 
can use a nested loop: 
X=VM-+ CH:FOR I=X + 27*8 TO 31*8: FOR J =1 TO 1+7: 
READ N: POKE J, N: NEXT: NEXT 
Of course, you must make sure your DATA statements are in 
the right order. That is, that DATA for screen code 27 must 
come before the DATA for screen code 28. 


Keeping part of the ROM character set. What if you want 
some custom characters, but you also want to have the regular 
letters and symbols? Once you move character memory, you 
have to provide the patterns for every character you use. But 
you don’t have to have all the character patterns in DATA state- 
ments. You can also copy some or all of the built-in character 
set into your new character memory. You just PEEK at each 
byte of the pattern in the character ROM and POKE that byte, 
in the same order, into the new character memory. 

Since copying hundreds of bytes from one location to 
another takes a long time in BASIC, you probably don’t want 
to copy more of the ROM character set than you're actually 
going to use. You can copy the entire 2K of one set, or even 
copy both built-in sets—but the person playing your game will 
have along wait while your program PEEKs at the number in 
the built-in set and POKEs it into the new character memory 
location. Remember, this operation is carried out eight times 
for each character, and there are 256 characters in each 
complete character set. That's 2048 PEEK and POKE pairs, plus 
the time it takes to calculate the different addresses within the 
loop. 

So you'll usually want to copy only the portion of the char- 
acter set that you want to use. If you aren’t going to use 
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reversed characters, that eliminates the upper half of the char- 
acter set right away. If you aren’t using any of the graphics 
characters, you don’t need to copy any of the next quarter. To 
get ail the letters and symbols from ROM into your new char- 
acter memory block, you need to copy only the first 64 char- 
acter patterns. That's only 512 times through the loop—a lot 
faster. 

And once you have those 64 characters copied, you still 
have room for 192 custom characters. 

Copying part or all of the character ROM requires a couple 
of operations, however. Usually the character ROM is switched 
out, so that you can’t PEEK into it. This is because it uses the 
same addresses as the I/O ROMs. It saves you 4K of memory, 
but it means that you have to turn off the I/O and switch in the 
character ROM, then copy what you want to copy, and finally 
switch out the character ROM and turn the I/O back an. These 
statements perform those operations: 

POKE 56334, PEEK(56334) AND 254: POKE 1, PEEK(1) 
AND 251 

loop to copy character set 

POKE 1, PEEK(1) OR 4: POKE 56334, PEEK(56334) OR 1 

It is very important that you perform these operations in the 
order shown. 

Here is a complete program that copies the first 64 characters 
of the character set and locates them at the 14K boundary in 
the video block, which is assumed to begin at 0. 


Program 4-2. Move Character Set 

Remember, do not type the checksum number at the end of each line. For example, do 

not type :rent 123. Please read Appendix J, “Automatic Proofreader,’ before entering 

this program. 

18 VM=@:CC=14 :CH=VM+CC*1624:RM=53248-CH:GOSUB 1180 
srem 196 

1198 POKE 53272, (PEEK(53272)AND 246)OR CC srem 122 

1118 POKE 56334, PEEK(56334)AND 254:POKE 1,PEEK({1)A 


ND 251 rem 228 

1126 FOR I=CH TO CH+5l1:POKE I,PEEK{I+RM):NEXT 
srem 149 
1139 POKE 1,PEEK(1) OR 4:POKE 56334, PEEK( 56334) OR 
{SPACE}1 rem 188 
1148 RETURN trem 166 


And here is a modification of the same program, which 
copies the first 64 characters, but then replaces characters 27 
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through 31 with five custom characters. After you run this 
program, you will be able to see the custom characters on the 
screen by typing the keys for the left bracket, British pound, 
right bracket, up arrow, and left arrow. 


Program 4-3. Move and Customize 


Remember, do not type the checksum number at the end of each line. For example, do 
not type :vem 123. Please read Appendix J, “Automatic Proofreader,’ before entering 
this program. 


10 VM=@:CC=14: CH=VM+CC*1924:RM=53248-CH:GOSUB 1199 


:GOSUB 1282 srem 231 
99 PRINT "{CLR}":FOR I=32 TO 95:PRINT CHRS(1)::NEX 
T:END :rem 26 


1198 POKE 53272, (PEEK(53272}AND 24@)OR CC :srem 122 
1119 POKE 56334,PEEK(56334)AND 254:POKE 1,PEEK(1)A 


ND 251 rem 228 

1126 FOR I=CH TO CH+511:POKE I,PEEK({I+RM) :NEXT 
rem 148 
1130 POKE 1,PEEK(1) OR 4:POKE 56334, PEEK(56334)0R 
{SPACE}1 srem 186 
1148 RETURN srem 166 
1260 FOR I=CH+8*27 TO CH+8*31 STEP 8:FOR J=I TO I+ 
7:READ N:POKE J,N:NEXT:NEXT srem 70 
1218 RETURN :rem 164 
1389 DATA 12,12,9,118,8,24, 36,72 srem 27 
1319 DATA 16,16,56,124,254,146,56,48 srem 232 


1320 DATA 16,124, 248, 248,124,147,127,62 srem 131 
1346 DATA 176,9,242,146,159,255,126,109 srem 127 
1358 DATA 8,6,28,254, 28,126,129,126 zrem 180 


Using Custom Characters 
Once the new character patterns are POKEd in and character 
memory has been reconfigured, you are ready to use the 
custom characters in your programs. You can do anything with 
custom characters that you could do with regular characters. 
You can POKE them on the screen using the regular screen 
codes. You can PRINT them to the screen using the ASCII 
codes or regular PRINT statements. 

For instance, if you have programmed the left bracket 
character to be a person running, you can put it on the screen 
with any of these methods: 


POKE SC+N, 27 
PRINT CHR$(91) 
PRINT “[” 
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Complex Custom Characters 

Often the smail character size just won’t be enough for your 
needs. You’ll want a much larger picture. Of course, sprites 
can be used for that purpose—but sprites are not particularly 
useful when you want to be able to locate many versions of the 
same figure in many locations on the screen. For instance, if 
you wanted a fleet of a dozen large ships in random locations 
on the screen, your eight sprites would be used up quickly. It 
is much better in such cases to program complex characters. 

Complex characters are large figures made up of smaller 
characters. The next short program creates pictures of ships on 
the screen. Each ship is made up of 12 custom characters. Indi- 
vidually, the characters are meaningless. But we won't use 
them individually. Instead, we'll combine them in a string. 
This program redefines the characters @, A, B, C, D, E, EG, 
H, I, J, and K. The complex character has @, A, and B in the 
top row, C, D, and E in the next row, F G, and H in the third 
row, and I, J, and K in the bottom row. 

POKEing a complex character to the screen is slow and 
ragged. PRINT works much better. However, you must be sure 
to include the cursor movement characters between the rows. 
Since the top row of the character is @, A, and B, we will begin 
the string that prints the complex character with @AB. Now 
we must get the cursor from the position on the screen directly 
to the right of the B to the position directly under the @. This 
will take one cursor down and three cursor left characters. In 
quote and insert modes you can enter those characters in the 
string just by pressing the appropriate cursor movement keys. 
The whole complex character string becomes the variable A$. 
Wherever you PRINT A$, the complex character appears. 

The string array S$(7) contains all the possible vertical 
positions for the start of the ship character. The numeric array 
S() contains the valid horizontal values to be used with the 
TAB function. Since we don’t want the ships overlapping, the 
legal positions start at every fifth line and every fourth 
column. This will leave a blank column or row between any 
two adjacent ships. 

Notice how colors are assigned using the string arrary 
CL4$(7). The values of CL$(1) are color key combinations 
entered in quote mode. When they are PRINTed along with 
the string holding the complex character, they force the ships 
to have different colors. 
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Then the program puts a random number of randomly 
colored ships in random locations on the screen. The last ship 
is always white, and it is the only white ship on the screen, but 
its location is random, too. This could be the flagship of the 
fleet or a treasure ship. 

Once the first display has been created, you can press any 
key and the program will automatically generate another 
random screen, This would be a good screen display generator 
for a game in which the player controls a small sailboat trying 
to make its way through a fleet of ships to reach the treasure 


ship. 


Program 4-4. Ships 

Remember, do not type the checksum number at the end of each line. For example, do 
not type :vem 123. Please read Appendix J, “Automatic Proofreader,” before entering 
this program. 


1@ DIM 8$(4),58(7),CL$(5) trem 163 
28 CC=14:CH=CC*1924:SC=1924 srem 215 
30 PRINT "R23{CLR}":POKE 53272, (PEEK(53272)AND 2 
49)OR cc srem 78 
49 GOSUB 1198:GOSUB 1289 trem 35 


58 CL$(@)="E19":CL$(1)=" {BLK} ":CL$(2)="—59" :CL 
$(3)="{YEL}" sCL$(4)="£39"sCL$(5)="{wat}" 


trem 182 
18@ GOSUB 908 :rem 178 
116 GET CS:IF CS$=""THEN 112 z:rem 75 
129 PRINT “{CLR}":GOTO 186 srem 251 
988 FOR I=8 TO INT(RND(9)*12+5) :H=INT(RND(9)*8):V= 
INT ( RND(9)*5)} srem 17 
916 CL=INT{RND(9)*5) trem 111 
920 PRINT CL${CL)S$(V)TAB(S(H))A$sNEXT srem 263 
936 V=INT(RND(9)*5) :H=INT(RND(9)*8):PRINT CLS$(5)S$ 
{V)TAB(S(H})AS srem 154 
949 RETURN srem 125 
1168 FOR I=@ TO 11:T=I*8:FOR J=CH+T TO CH+T+7 
trem 155 
1118 READ N:POKE J,N:NEXT:NEXT srem 76 
1128 FOR J=CH+256 TO CH+263:POKE J,@:NEXT J:rem 75 
1138 RETURN :rem 165 
1200 AS="@AB{DOWN}? (3 LEFT]CDE{DOWN}{3 LEFT] FGH 
{DowN}{3 LEFT} IJK" srem 163 
1218 S${G)="{HOME}":FOR I=1 TO 4:S${(I)=S$(I-1)+" 
{5 DOWN} :NEXT srem 51 
1228 FOR I=@ TO 7:S(I)=1*5:NEXT srem 193 
123@ RETURN srem 166 
1300 DATA @,0,9,0,9,3,0,8 trem 149 
1318 DATA 6, 26,3,2,214,196,66,194 zrem 78 
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132@ DATA @,128,9,8,0,48, 208,17 srem 221 
1330 DATA 1,8,0,9,3,7,6,15 :rem 228 
1348 DATA 66,.74,115, 246,258, 226, 226, 242 srem 131 
1358 DATA 18,85,155,23,31,31, 22,3 zrem 124 
136@ DATA 11,15,22,55,112,112,128,64 trem 219 
1378 DATA 258,222,226, 71,122,66,66,66 :rem 33 
1388 DATA 38,22,255,31,23,31,16,16 trem 120 
1398 DATA 32,16,290,126,59,15,3,1 trem 74 
1409 DATA 66,66,66,66, 242,95, 245, 255 trem @ 
1418 DATA 16,31,27,126, 86, 254,126, 248 trem 27 
Character Editors 


Creating characters on graph paper works, but it is slow and 
requires a lot of calculation. The easiest way to create charac- 
ters is using the computer. There are quite a few good character 
editor programs available. (One good character editor is “Ultra- 
font,” by Charles Brannon, in Compute!’s First Book of Commodore 
64 Sound and Graphics.) 

Also, in case you'd like to use it, here are 32 custom char- 
acters, which you can use however you'd like. All the lines 
before 1300 load the character set and demonstrate it. To keep 
the demonstration going, press a key. 


Program 4-5. Thirty-two Custom Characters 

Remember, do not type the checksum number at the end of each line. For example, do 
not type :rem 123. Please read Appendix J, “Automatic Proofreader,’ before entering 
this program. 


286 CC=12:VM=0 :CH=CC*1024:CM=53248 srem 88 
38 GOSUB 1160:POKE 53272, (PEEK(53272)AND 249)OR CC 
srem 151 

46 PRINT "{CLR}" trem 286 
168 FOR I=8 TO 159:POKE 1024+1,I:POKE 55296+1,0:NE 
XT srem 76 

120 GET A$:IF A$=""THEN 120 trem 73 
13@ POKE 53281,15:PRINT "{BLU}" zrem 138 
148 FOR I=64 TO 95:PRINT "{HOME}{12 DOWN) *TAB(19)Cc 
HRS$(18)CHR$(1) srem 79 

158 FOR J=@ TO 206:NEXT srem 226 
169 IF PEEK(197)=64 THEN 1623 zrem 176 
176 NEXT:GOTO 1408 trem 223 
1186 POKE 56334, PEEK(56334)AND 254:POKE 1,PEEK({1L)A 
ND 251 rem 227 

1118 RM=CM-CH:FOR I=CH TO CH+1823:POKE I,PEEK(RM+I 
) :NEXT trem 24 

1124 POKE 1,PEEK(1}OR 4:POKE 56334, PEEK(56334)0R 1 
rem 179 
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FOR I=CH+10824 TO CH+1280:READ N:POKE I,N:NEXT 
srem 54 
srem 49 


: RETURN 

REM STARSHIP UP, LEFT, DOWN, RIGHT 
DATA 24,24,217,255,219,153,129,195 
DATA 63,25,16, 252, 252,16, 25,63 
DATA 195,129,153,219,255,153,24,24 
DATA 252,152,9,63,63,8,152, 252 
REM ROCKET UP, LEFT, DOWN, RIGHT 
DATA 16,56,56,56,124,124, 84,84 
DATA 9,4,15,124,255,124,15,0 

DATA 42,42,62,62,28,28,28,8 

DATA 8,246,62,255,62,240,8,0 

REM DECIDUOUS TREE 

DATA 57,87,186,85, 28,24, 24,6 

REM EVERGREEN TREE 

DATA 8,28,8,62,28,127,60,235 

REM RUNNING FIGURE LEFT, RIGHT 
DATA 48,48, 28, 20,112,38,18,48 
DATA 12,12,56,40,14,128,72,12 

REM MISSILE 1&2 LEFT, 1&2 RIGHT 
DATA 0,9,0,3,14,3,08,8 

DATA 0,8,0,48,224,48,0,9 

DATA @,9,@,192,112,192,2,98 

DATA @,8,0,12,7,12,0,@ 

REM FLICKERING FIRE (2 CHARS) 
DATA 8,0,82,16,106,38,28,@ 

DATA 0,0,42,8,86,160,56,0 

REM BICYCLIST (COMPLEX) LEFT 

DATA 1,1,28,19,24,55,39, 24 

DATA 128,128,128,128,176,2080,72,48 
REM BICYCLIST (COMPLEX) RIGHT 
DATA 1,1,1,1,13,19,18,12 

DATA 128,128,56, 200,24, 236,228, 24 
REM ASTEROID, ROTATE 4 POSITIONS 
DATA @,48,129,124, 38,124, 24,0 
DATA 8,44,46,126,124,56,16,9 

DATA @,24,62,120,62,39,12,6 

DATA @,8,28,62,126,116,52,8 

REM BOULDER 

DATA 6,0,28,30,30,126,127,255 

REM FLICKERING STAR (2 CHARS) 
DATA @,9,28,54,28,8,9,8 

DATA 0,20,54,8,54,208,9,9 

REM PIG 

DATA @,8,0,32,62, 255,126, 34 

REM SAILBOAT LEFT AND RIGHT 

DATA 16,24,44,126,111,16,126,62 
DATA 8,24,52,126,246,8,126,124 
DATA @,9,0,0,9,0,9,0 


3;rem 
3:rem 
srem 
:rem 
?rem 
:rem 


132 
179 
133 
185 
134 
196 


trem 61] 
rem 42 
rem 65 


:rem 
trem 
:rem 


141 
149 
149 


srem 97 


srem 
:Tem 
:rem 
3;rem 
srem 
:rem 
;rem 


114 
131 
1989 
176 
268 
118 
211 


rem 5 


:rem 
3; rem 
3;rem 
srem 
3;rem 
:Trem 


175 
238 
178 
243 
243 
141 


rem 72 


:rem 


114 


rem 75 
srem 6 


rem 


188 


srem 75 
:rem 7 
srem 27 


: rem 
3;rem 
7rem 


197 
121 
197 


srem 88 


3;rem 
3 rem 


122 
155 


trem 22 


rem 
srem 
srem 
:rem 


135 
222 
184 
151 


oe ee Oe Gee Cue ee ee Oe Cr Oak Oe Cie ee ae A ee oes a Oe ee Ore Ome ae Oe Can cae Oe 


IIOID DFID 9D DPIRD DID DDD D7 DD DIDI DD 


Custom Characters Zi 


Multicolor Mode 

One limitation of the standard character screen is that the back- 
ground is all one color, and the foreground (the on dots in each 
character) can only be a single color within an individual char- 
acter. This is usually enough, but sometimes you need more 
colors in each character, or you want to be able to individually 
select the background color of each character. To display up to 
four colors within each character, you can use multicolor mode. 


Bit Manipulation 
Before we get to the particulars of multicolor mode, let's briefly 
review how to turn individual bits or groups of bits on or off 
without disturbing the rest of the byte. We've already done this 
several times, using the AND and OR operations, and if you 
completely understand how AND and OR work on the bits 
within a byte, you can skip right on to the explanation of 
multicolor mode. 

Bits and bytes. In Chapter 1 we went over how bits work 
within the byte. That is, the rightmost bit is the 1s column, the 
next one is the 2s column, the next is the 4s column, and so on 
until the leftmost bit is the 128s column. To figure the decimal 
value of the number, you just add up the value of every column 
that has a 1 in it. 

When we talk about the bits, we number the bits from 0 to 
7, in order from right to left. So bit 0 is the 1s column, bit 1 is 
the 2s column, bit 2 is the 4s column, and so on until bit 7 is 
the 128s column. These relationships are shown in Figure 4-6. 


Figure 4-6. Bit Numbers 
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Figure 4-7. The Byte as a Row of Glasses 
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Figure 4-7 illustrates a byte as if it were a row of eight 
glasses linked together. Each glass is a bit. If it’s full (shaded), 
that bit contains a 1. If it’s empty, that bit contains a 0. 

When you POKE a number into a byte, it has the effect of 
dumping out all the previous contents of the byte and then 
filling the appropriate bits to make the new number. Let's say a 
byte contains the decimal number 208, which is binary 
11010000. If you POKE a 5 into that location, it is as if you 
emptied out the 11010000 and then filled up bits 0 and 2, so 
that the new contents of that byte are 00000101. 


But what if you want the high nybble (left four bits) to stay 


1101, and only want to change the low nybble (right four bits) 
to 0101? 

In that case, you would PEEK the location, add 208 to 5, 
and POKE it back in. Now you have 213, the binary 11010101. 

But what if the previous number were not 208, but 223, or 
binary 11011111. Now if you add 5 to it you get 228, or 
11100100. Both the high and low nybbles are changed, and 
neither contains what you wanted it to contain. 

What you want is a way to pour out whatever is in the low 
nybble, the rightmost four glasses, and then fill up just the 
ones that you want filled, while the high nybble is completely 
left alone—whatever is in there remains untouched. 

To do this, you have two commands—AND and OR. 

AND. In Figure 4-8, we visualize AND as a series of lids. 
Using AND is like covering the on (1) bits with a lid and then 
tipping the glasses. All the uncovered bits are emptied out— 
they become zeros. All the covered bits are left exactly the way 
they were—if they were full, they stay full, and if they were 


empty, they stay empty. 
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Figure 4-8. AND as Lids 
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will remain will become 0 
as they were 


Notice that it doesn’t matter which number is represented 
by the glasses and which is represented by the lids—the result 
is the same either way. 

So you use AND to protect the condition of certain bits in 
a byte, and empty or zero out all the others. If you AND any 
number with 11000000, or 192, all the bits in the other number 
except bits 6 and 7 will become zeros, regardless of what they 
contained before. The two high bits, however, will stay as they 
were—if they were ones, they stay ones, and if they were 
zeros, they stay zeros. 

OR. if AND is represented by lids, OR functions like 
funnels, designed to fill certain bits and leave the others alone. 
Figure 4-9 shows how OR works. Whichever bits are on are 
filled—all other bits are left alone. 
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Figure 4-9. OR as Funnels 
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AND and OR together. Many memory locations are used 
for many purposes at once. We’ve already seen how location 
53272 points at once to the start of screen memory (high 
nybble) and the start of character memory (low nybble). 

First, you need to pick up the value that is in location 
53272 by PEEKing that location. Then, if you want to change 
just character memory, you must empty out the low nybble— 
get rid of whatever information is there. But you don’t want to 
clear out the high nybble. So you AND the byte at 53272 with 
the byte 11110000 (decimal 240). This has the effect of 
emptying bits 0-3, while keeping a lid on whatever is in bits 
4-7. 


Then you put the correct value in the low nybble. You do 
this by ORing the byte with the code for the 2K boundary 
where character memory begins. 

When these operations are finished, you’re ready to POKE 
the result into location 53272. The next time the VIC-IE checks 
location 53272, it will find the new values there. It will 
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continue to look for screen memory where it was before, 
because you didn’t change that location, and it will start to 
look for character memory where your new instruction tells it 
to look. 

All one way. Of course, you don’t always need to use both 
OR and AND. For instance, if you are going to put a zero into 
a certain bit or group of bits, you only need the AND opera- 
tion. Once the bits you want emptied are empty, they contain 
zeros—you don’t have to OR it with a zero! Anytime you AND 
a number with 15, the high nybble (bits 4—7) will be all zeros. 
And when you AND a number with 240, the low nybble will 
be all zeros. 

Likewise, if you are filling a bit or a group of bits, with 
none to be left as zeros, you don’t need AND. ORing it will be 
enough. Anytime you OR a number with 240, the high nybble 
will be all ones, regardless of what was there before. And 
when you OR a number with 15, the low nybble will be all 
ones. 

These formulas are always true: 


nnnnnnnnAND 11110000 = nnnn0000 
nnnnnnnn OR 11110000=1111nnnn 


On and off. To turn on a particular bit (set it to 1), just OR 
the byte with the value of that bit. Bit 3 is the 8s column—so to 
set bit 3, PEEK the value already there, OR it with 8, and 
POKE it back into the same location. That bit will be set. 

To turn off a particular bit (clear it to 0), just AND the byte 
with a number that consists of all ones except for a zero in that 
bit. For example, to turn off bit 5, you only need to AND the 
number with 223, or binary 11011111. 

If you don’t want to bother with calculating the decimal 
equivalents of binary numbers, there is an easy formula. To 
clear a bit, subtract the bit’s value from 255. Bit 4 is the 16s 
column. To clear that bit in location 53270: POKE 53270, PEEK 
(53270) AND 255 — 16. 

Reversed characters. This is a general rule with binary 
numbers. To find the complement of a binary number, just 
subtract it from 255. The opposite of 11000011 (decimal 195) is 
00111100. The decimal value can be found with the operation 
255 — 195. 

You can reverse a character using this method. When you 
are copying a character from one location to another, just PEEK 
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the value from the original location, subtract it from 255, and 
POKE the result in the new location. 


Using Multicolor Character Mode 

Multicolor character mode is controlled at bit 4 of location 
53270. If bit 4 is 1, then multicolor mode is enabled. If bit 4 is 0, 
then standard character mode is in force. To turn on multicolor 
mode: 


POKE 53270, PEEK(53270) OR 16 

To turn off multicolor mode: 

POKE 53270, PEEK(53270) AND 239 

(Notice that the number 239 is the result of 255-16.) 


But what is multicolor mode? 

Color instructions. Each bit in the character pattern can be 
regarded as a color instruction. Every off bit is an instruction to 
the VIC-I chip to display the background color at that dot on the 
screen. The background color is the color code (from 0 to 15) 
stored at location 53281. Every on bit is an instruction to the 
VIC-II to display the foreground color at that dot on the screen, 
The foreground color is the color code (from 0 to 15) found at 
the corresponding position in color memory (from 55296 to 
56295). 

Let's say that we've PRINTed an X at byte 9 of screen 
memory. At byte 9 of color memory, the color code is 7, for 
dark blue. This is the foreground color for that character posi- 
tion on the screen, regardless of what character is PRINTed 
there. At location 53281, the color code is 15, for light gray. 
This is the background color for the whole screen. Now the 
VIC-II reads the pattern for X (screen code 24) starting at byte 
8*24. For every 0 bit, a light gray dot appears on the screen at 
the corresponding position within the character. For every 1 
bit, a dark blue dot appears. 

So in standard character color mode, each color instruction 
is one bit, and it can select one of two possible colors, the fore- 
ground color or the background color. 

In multicolor character mode, each color instruction is two 

' bits, a bit-pair. This means that it can specify one of four 
different colors. The bit-pair can be either 00, 01, 10, or 11. 
Now when the VIC-II reads a character pattern, it displays the 
color at 53281 when it finds the bit-pair 00, and it displays the 
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color at that position in color memory when it finds the 
bit-pair 11. 

The other two bit-pairs are color instructions, too. Every 
01 bit-pair displays the color code (from 0 to 15) stored at loca- 
tion 53282, and every 10 bit-pair displays the color code (from 0 
to 15) stored at location 53283. 

Bit-pairs and double dots. There is one problem: Each 
character pattern still has only eight bytes, and each byte of the 
pattern still has only eight bits. At the same time, the character 
position on the screen is still eight dots wide and eight dots 
high. But with two bits being used up by each color instruc- 
tion, there can be only half as many different color instructions 
per byte, and therefore only half as many per character. (See 
Figure 4-10.) 


Figure 4-10. Bit-pairs 
Standard Byte 
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The solution is that each color instruction controls two 
dots. The two dots controlled by the same bit-pair always 
display the color called for by that instruction. The double dot 
acts like one dot when it comes to color selection. 

Naturally, this does funny things to character patterns. 
You can see this by filling the screen with characters—an easy 
way to do this is to LIST a program you already have in 
memory. Then switch to multicolor mode with this instruction: 


POKE 53270, PEEK(53270) OR 16 


Watch the screen change. Suddenly the characters aren’t 
too legible anymore! Figure 4-11 show why, using the pattern 
for a starship. When each bit controlled an individual dot, 
there were spaces of background color between individual lines 
of the foreground color. But now, in multicolor mode, the zeros 
no longer represent single dots of background color—now 
they are paired with the adjacent 1 to form a bit-pair with 
either a 01 or a 10 color instruction, and the double dot will 
display that single color. 


Figure 4-11. Multicolor Patterns 


One-Color Starship Multicolor Interpretation 
Character of the Same Character 
00012000 e = 
10011001 
10112201 
11111211 
11011011 
10011001 
11000011 


Color memory switches. There’s another feature with 
multicolor mode. Once it has been enabled at 53270, you can 
switch it on or off individually at each character position on the 
screen. In multicolor mode, color memory is used differently. 
In standard color mode, the low nybble contains one of 16 
possible color codes, from 0000 to 1111 (decimal 0 to 15). The 
high nybble cannot be used. 
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in multicolor mode, however, only bits 0 to 2 are used for 


_ the color code. This means that you can select only eight 


colors, from 000 to 111 (decimal 0 to 7). Bit 3 is used differently 
now. It switches between multicolor and standard mode for 
that character position. If bit 3 is set (1), at byte 320 of color. 
memory, the VIC-II will interpret the bytes of the character 
pattern as bit-pairs, and display them as double dots. If bit 3 is 
clear (0), the VIC-I will interpret each bit as an individual color 
instruction. 

This means that by controlling the number in color 
memory, you can control whether or not multicolor mode is 
used. On the same screen you can have letters of regular text 
and custom characters in multicolor mode. 

The easiest way to set color memory is to PRINT with the 
normal color keys embedded ina string. Now, however, the 
colors you get by pressing Commodore and a number key 
select multicolor mode for everything that is PRINTed to the 
screen until the next color key. However, it will now give you 
exactly the same foreground color as you would get by 
pressing CTRL and the same number key. The colors from 8 to 
15 are not accessible for the foreground in multicolor text 
mode, though they can still be used for the colors controlled at 
53281, 53282, and 53283. 

This program creates a display using multicolor mode. It 
is essentially the same as the ship display we used before, 
except that the ships have been replaced by multicolored trees, 
and a single black-leafed tree has replaced the single white ship 
at the end of each new screen. Again, press any key to create a 
new screen. 


Program 4-6. Multicolored Forest 

Remember, do not type the checksum number at the end of each line. For example, do 
not type :rem 123. Please read Appendix J, “Automatic Proofreader,’ before entering 
this program. 


18 DIM S$(4),8(9),CL$(5) zrem 165 
20 CC=14sCH=CC*1924;:SC=1924 srem 215 
38 PRINT "{GRN}{CLR}":POKE 53272, (PEEK(53272}AND 2 

46)OR cc :rem 215 
49 GOSUB 1189:GOSUB 12998 :rem 35 


58 CL$(O}="E69" CL$ (1)="£69" sCL$(2)="R39":CL 
$(3)="E69" CLS (4)="E839" :CL$(5)=" (BLK}" 


srem 96 

69 POKE 53282,9:POKE 53283,@:POKE 53281,11:POKE 53 
288 ,8 zrem 137 
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180 GOoSUB 908 srem 178 
110 GET CS$:IF C$="" THEN 118 z:rem 75 
128 PRInT "{CLR}"“:GoTOo 106 srem 251 
980 FOR I=8 TO INT(RND(9)*12+5) :H=INT{RND(9)*8) :V= 
INT( RND(9)}*5} srem 17 
918 CL=INT(RND(9}*5) : :rem 111 
928 PRINT CL${CL)}S$(V)TAB(S(H))A$:NEXT rrem 283 
938 V=INT(RND(9)*5):H=INT(RND(9)*8):PRINT CL$(5)s5 
(V) TAB(S(H))AS srem 154 
949 RETURN rem 125 
1108 FOR I=@ TO 11:T=I*8:FOR J=CH+T TO CH+T+7 
trem 155 
1110 READ N:POKE J,N:NEXT:NEXT srem 76 
1128 FOR J=CH+256 TO CH+263:POKE J,@:NEXT J:rem 75 
1138 RETURN zrem 165 
1260 AS="@AB(DOWN}(3 LEFT}CDE{DOWN}{3 LEFT}FGH 
{DOWN} {3 LEFT}IJK" trem 163 
1218 s$(8)="{HOME}":FOR f=1 TO 4:S$(1)=S$(I-1)+" 
{5 DOWN)" :NEXT srem 51 
1228 FOR I= TO 9:S(I)=I*4;sNEXT srem 194 
1238 RETURN trem 166 
1380 DATA 12,660,690, 246, 255,61,61,1 srem 114 
1318 DATA 60,252,252, 240,243, 255,51,67 srem 73 
1320 DATA 8,9,0,%,8,192, 246,64 :rem 160 
1338 DATA 9,3,3,9,8,3,3,3 srem 164 
1340 DATA 125,127, 252,236,236, 233,253,189 srem 235 
1358 DATA 64,246,48,0, 204,255, 255,12 srem 228 
1368 DATA 3,9,3,3,63,53,1,248 srem 121 
1378 DATA 189,125,248, 209,184,52,84,16 :rem 98 
1380 DATA 95,3,3,8,8,60, 204,255 zrem 238 
1390 DATA 64,6@0,233,224,192,8,1,48 srem 128 
1480 DATA 26,23,89,150,42,169,178,136 srem 25 
1418 DATA 252,252,111,149,0,8,84,138 srem 214 


You can also POKE into color memory to turn muiticolor 
mode on or off for particular character positions—or for the 
whole screen. To change a location LC in color memory to 


multicolor code without changing the color, use this statement: 


POKE LC, {(PEEK(LC)AND 7) OR 8 

To turn off multicolor memory at the same location, again 
without changing the color, use this statement: 
POKE LC, PEEK({LC)AND 7 
(You'll notice that in both statements, we are in effect clearing 
the high nybble. It really doesn’t matter much, because color 
memory is a unique area of RAM—each byte only contains 
four bits. In some 64s, the high nybble contains random 
garbage. In others, the high nybble contains zeros. It’s usually 
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best just to erase those bits by ANDing with 15 or less, so 
there’s no chance they can mess up your calculations.) 

Since multicolor characters allow very little detail within 
an individual character, you will almost always use them as 
building blocks for larger images. You can design them to be 
either part of a larger complex character or pieces that can be 
combined many different ways. 


OOO DDO 9O OOO 5000907050006 


OOO DDO 9O OOO 5000907050006 
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Moving 


Movement on the television screen is a series of stil) pictures. 
The pictures seem to move because each still picture is slightly 
changed from the one before, and each new picture comes on 
the screen so quickly that our eye can’t see the jump from one 
to the next. 


Speed 
ice change their image 24 times per second—any slower, 
and you begin to see flickering. 

But the raster scan in your television refreshes the screen 
image 60 times per second. That's almost three times faster than 
the minimum for smooth animation. If you're programming in 
machine language, that leaves you plenty of room to perform 
all your calculations and still change the screen image often 
enough to have smooth movement. In fact, most machine 
language games have to insert delay loops or timing routines 
to slow them down so you can see what’s happening on the 
screen. 

That's why, in arcade games, no matter how fast the game 
goes, it can always go faster when you get to the next level. 
Even when the computer is controlling dozens of figures on the 
screen at the same time, it is probably marking time to stay 
slow enough for you to play it. 

Unfortunately, BASIC calculations are slower (but a lot 
easier to program!) than machine language calculations. It’s 
sometimes hard to perform all the calculations you need fast 
enough for animation to be smooth. You need to make sure 
that your program performs as few calculations as possible 
between each movement on the screen, or your game will run 
slower and slower and slower. 


Movement and Animation 

There are really two separate problems in programming move- 
ment on the screen. One is getting a figure to move from one 
screen location to another. The other is making the figure seem 
natural in its movements. Even though the terms movement 
and animation are used almost interchangeably, in this book I'd 
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like to use them to mean different things. 

Movement is changing the location of the figure. 

Animation is changing the shape of the figure. 

For instance, in Donkey Kong, movement is getting Mario 
from one place to another on the screen—up and down 
ladders, along ramps, jumping, etc. Animation is the way 
Mario’s shape changes: his legs move, he seems to face the 
direction he’s moving in, he moves the hammer up and down. 
All these things make his movement seem human and commu- 
nicate what he’s doing. 

Chances are, since sprites are easy to use on the 64, that 
you'll want to use a sprite for the main player-controlled 
figure. However, you'll usually want a lot of other things to be 
moving, too, and in this chapter we'll see how to get fast and 
varied movement using character graphics on the screen. 


Three Steps to Movement 
Let's assume that the figure that we want to move is already on 
the screen. We know he’s at location 20 in screen memory. To 
make the figure move, we need to carry out three steps: 

1. Calculate where the new location should be. 

2. Erase the figure at the old location. 

3. POKE or PRINT the figure at the new location. 
Perform those steps over and over again, and you have 
movement. 


Wraparound Movement with POKEs 

Here’s a program that will show you movement at it simplest. 
It uses POKE commands to make a single figure move in 
random patterns on the screen. When it reaches the edge of the 
screen, it wraps around—it disappears on the left side and 
reappears on the right side, or disappears at the top of the 
screen and reappears at the bottom. 

It’s important to understand, step by step, what's 
happening in this program. Most of your programming time— 
and debugging time, too—will be spent with getting exactly 
the movement effects you want on the screen. And most of the 
principles here will apply to sprites, too. So even though this 
program is quite short, let's go through it line by line to make 
absolutely clear what’s happening. This program will be the 
basis of almost every other program in this chapter. If you type 
this in and SAVE it, most of the other programs can be entered 
just by LOADing this program; adding, editing, or replacing 
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lines; and then SAVEing the new version with another 


filename or on another tape. 


How the Program Works: 


Line 
20 


30 


3s 


Function 

Set up variables 

SM = screen memory start address 

CM=color memory start address 

EV = end of screen—vertical. (The last row number 
minus 1. Later, the program will know we are at the 
last row of the screen when the row number is 
greater than this number.) 

EH=end of screen-—horizontal. (The fast column 
number minus 1.) 

BV = beginning of screen—vertical. (The first row 
number plus 1. As always, the numbering really 
begins with 0.) 

BH = beginning of screen—horizontal. (The first 
column number plus 1.) 

HN = number of columns to return horizontally for 
wraparound. (This is the total number of columns 
available on the screen.) 

VN =number of rows to return vertically for wrap- 
around. (This is the total number of rows available 
on the screen.) 

FG = screen code for the figure 

BL = blank—the screen code for erasing the figure. 
(Usually 32, but if you have the screen filled with 
another character as a pattern, you would use that 
character’s screen code for the erasure.) 

FC = figure color—the number to POKE into color 
memory for the figure 

BC = the color of the background 

XC = the foreground color of the BL character. (With 
the space character [screen code 32] this doesn’t 
matter, but if the background character shows up, 
it does.) 

POKE the background color and clear the screen. 

Set initial character movement and position values. 

Unlike the values above, these variables will be 

changed often by the program. They are set now 

only to establish the starting position and direction 
of the characters. 
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100-190 
100 


190 
200-290 
200 
210 
220 
230 


240 


290 
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H= Toe direction of movement (1 = right, 
-l=le 

V =vertical direction of movement (1 = down, 
—1l=up) 

XH and XV = old horizontal and old vertical column 
and row numbers. (At the beginning of a particular 
movement, these hold the current position of the 
figure. This allows us to remember where the char- 
acter was so we can erase it there.) 

XP =old offset. This number is always XH + 40*XV. It 
represents the number of bytes to count in from the 
start of screen memory and/or from the start of 
color memory to find the byte where the figure is. 

Then POKE the figure color into color memory plus 

XP and the figure character into screen memory plus 

XP The figure will now appear on the screen. 

Main Loo 

Check the timer (TI$). If enough time has passed, go 

get a random direction assignment at line 990. 

If both directions are zero, no movement will take 

place—go back to 990 and get new movement values 

until at least one of the direction variables is not zero. 

Movement Routine 

Assign the new horizontal position. (See the expla- 

nation of this formula after the program listing.) 

Assign the new vertical position. (See the explana- 

tion of this formula after the program listing.) 

Set the new offset (NP) of the figure byte from the 

start of screen and color memory. 

POKE the new color. Then erase the old character. 

Then POKE the new character. Then erase the old 

color. (The order is important. POKE commands take 

long enough that color changes will be visible, if only 
as a momentary flash. Therefore, no other statement 
should come between POKEing the figure into the 
new location and erasing it [POKEing BL] at the old 
character location.) 

Set the old-value variables, XP XH, and XV, to the 

new values. (When the next movement takes place, 

these variables will be used to erase the figure where 
we just put it.) 

Close the movement Joop. 
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990 Random Direction Subroutine 
(This one-line routine randomly generates one of 
three numbers: —1, 0, and 1. The random number H 
then controls the direction of horizontal movement 
and the random number V controls the direction of 
vertical movement.) 


Program 5-1. POKE Movement Demonstration 


Remember, do not type the checksum number at the end of each line. For example, do 


not type :rem 123, Please read Appendix J, “Automatic Proofreader,’ before entering 
this program. 


26 SM=1624:CM=55296:EV=23 : EH=38: BV=1: BH=1 :HN=49: VN 


=25 :rem 99 

30 FG=87 :BL=32 :FC=6 :BC=15 :xc=8 :rem 224 

40 POKE 53281,BC:PRINT “{CLR}" zrem 229 

50 H=1:V=0:XH=19:XV=11:XP=XH+40*XV:POKE CM+XP,FC:P 

OKE SM+XP, FG trem 92 
106 IF VAL{TIS$}>1 THEN GOSUB 990:TIS="800000" 

s:rem 113 


199 IF H=@ AND V=@ THEN GOSUB 999:GOTO 19%:rem 2168 
266 NH=XH+H+HN*((XH>EH AND H=1)-(XH<BH AND H=-1)) 


srem 147 

210 NV=XV+V+VN*((XV>EV AND V=1)-(XV<BV AND V=~-1)) 
srem 32 
228 NP=NH+NV*40 rem 98 
238 POKE CM+NP,FC:POKE SM+XP,BL:POKE SM+NP,FG:POKE 
CM+XP,XC srem 134 

240 XP=NP:XH=NH: XV=NV ¢rem 143 
298 GOTO 104 srem 141 
992 H=SGN(INT(RND(9)*3)<-1):V=SGN( INT(RND(9)*3)=-1): 
RETURN srem 74 


The logic in lines 200 and 210. A row of variables and 
calculations like this can be puzzling, and since this formula 
eliminates a lot of IFF-THENs and GOSUBs or GOTOs, it’s 
worth understanding it and using it. 

The first part of line 200 is easy. We are setting the value of 
NH, the new horizontal position. It is equal to XH, the old 
position, plus H, the direction of movement. 

The rest of the line is devoted to checking to see if the new 
position is beyond the edge of the screen and, if it is, moving it 
to the opposite side of the screen. 

The math here depends on a quirk of the computer. When 
BASIC evaluates a relational expression (like X>Y or P=C or 
XX<25), the answer comes back as either true or false. If it is 
true, the answer is the number -1. If it is false, the answer is the 
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number 0. This is how BASIC checks for conditional state- 
ments like IF X= Y THEN 350. But by using the true= —1 and 
false =0 values, you can avoid the problems of using JE 

Look at the first of the tests: (XH>EH AND H=1). If the 
old horizontal position (XH) is greater than the edge-of-screen 
value (EH) and the direction of movement is to the right 
(H=1), this expression will evaluate to —1, or true. If either of 
the two conditions is false (either we are not beyond the right 
edge marker or the direction of movement is not to the right), 
the whole expression is false, and its value is 0. 

The same process takes place in the other expression, only 
this time we are testing the left edge of the screen. The expres- 
sion will be true (— 1) if the old horizontal position is less than 
1 and if the direction of movement is leftward (H= — 1). 

Now, these two expressions are within the larger expres- 
sion, with a minus sign between them. We are subtracting the 
second expression from the first expression. It is important to 
remember that they can’t both be true. However, they can both 
be false, and in fact usually will be—most of the time, the 
figure will not be crossing an edge. If neither expression is 
true, the entire expression will have a value of zero. Since 40°0 
is 0, none of this has any effect on the rest of the line. NH will 
be equal to XH ae H plus zero. This is the usual result. 

However, if the figure is at the right-hand edge, moving 
rightward, the left expression (XH>EH AND H = 1) will be 
true (— 1). The right expression will therefore be false (0). The 
large expression will then have a value of —1—0, or —1. We 
will multiply that by HN, which has a value of 40. Now the 
whole line is changed: NH now equals XH plus H plus 40 times 
—1 (which is, of course, the same as XH plus H minus 40). We 
will add 1 to the value of XH, but then we'll subtract 40 from it. 
The effect is to take the figure from column 39 to column 0 on 
the screen. It has wrapped around from the right-hand edge to 
the left-hand edge. 

If the figure is at the left-hand edge, moving leftward, 
then the right expression is true (— 1) and the left one is false 
(0). Now the large equation is 0 -(—1). Subtracting a negative 
number is the same as adding, so that the whole expression 
evaluates to 0+1, or 1. Now we are multiplying HN (40) by 1, 
so the result is 40. Since in this case XH was 0 and H was —1, 
we are setting the value of NH to —1+40, or 39—the number 
of the rightmost column on the screen. Again, the figure has 
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wrapped around. 

Line 210 uses exactly the same pattern. Only the actual 
values involved are different, since instead of columns 0 to 39, 
we are dealing with rows 0 to 24. 

Changing the ranges. You don’t have to use the full 
screen. You can put the figure you're moving inside a smaller 
area of the screen just by giving new values to the boundaries. 
Program 5-2 does this. It is almost identical to Program 5-1. So 
we'll only need to list and explain the few lines that are 
changed. 

In the program setup, you'll notice that we eliminate 
wraparound by the simple method of changing HN and VN to 
1. Now, if the edge test comes out true, instead of moving 40 
columns or 25 rows in the opposite direction, we'll only move 
back one column or row. In effect, then, when the figure tries to 
move beyond an edge, it simply stays in the same row or 
column. 

We change the ranges just as easily, by giving new values 
to BV, BH, EV, and EH. Now when the program tests for the 
edge, it thinks the edge is in a different place, and acts accord- 
ingly. When you RUN the program, you'll see that the char- 
acter still moves around, but it often stops or slides along the 
edge of an invisible wall. 


Program 5-2. A Shrinking Screen 


Remember, do not type the checksum number at the end of each line. For example, do 
not type :rem 123, Please read Appendix }, “Automatic Proofreader,” before entering 
this program. 


28 SM=1624 :CM=55296 :EV=18: EH=28: BV=6 : BH=11:HN=1:VN 


=l trem 51 
198 IF VAL(TI$)>2 THEN GOSUB 990:TIS="990908" 
srem 114 
226 NP=NH+NV*40:IF NP=XP THEN GOSUB 994:GOTO 190d 
srem 12 
Moving with PRINT 


The next program again starts with Program 5-1 and makes 
changes. There are more changes this time, however, since 
we'll be moving using PRINT statements instead of POKE 
statements. Therefore, the whole listing is included, though 
we'll only talk about the changes. 

Advantages of PRINT. The advantage of PRINT is speed. 
PRINT takes care of color assignments and cursor movements 
all at once. We've already seen how complex characters (trees 
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and ships) can be displayed instantly with PRINT statements. 
They can also be moved with PRINT statements, using the 
same principles. 

We will still keep track of new and old horizontal and 
vertical positions. However, instead of combining them into an 
offset which is added to the start of screen and color memory 
(NP), we'll use the NH and XH numbers with the TAB func- 
tion—the screen editor will TAB us to whatever column we 
specify. The NV and XV numbers will be indexes into an array 
V$(n), in which V$(0) is the HOME character (which takes us 
to the top row), V$(1) is HOME CURSOR-DOWN (which takes 
us to the second row), and each succeeding V$(n)} string 
contains one more CURSOR DOWN. Then if we tell the 
computer to PRINT V$(9)TAB(11)FG$, it will PRINT the string 
FG$§ at row 9, column 11. 

Disadvantages of PRINT. The main disadvantage of 
PRINT is scrolling. The can be an advantage, too, of course, as 
we'll see with a later program, but when you don’t warit the 
screen to scroll, you just can’t PRINT in the last line. PRINTing 
in the last column can also cause odd things to happen on the 
screen. So as a general rule, when you’re moving with PRINT 
you have to pretend that the rightmost column and bottom 
row don't exist. In effect, you shrink the screen just as we did 
with Program 5-2, only not as much, 

There are a couple of ways to hide the fact that the right 
column and bottom row aren’t used. You can make the screen 
and border the same color—then the edge will be wherever 
you put it and no one will be the wiser. Or you can put a frame 
all the way around the screen—if you don’t use column 0 and 
row 0 either, it won't look like a mistake that you aren’t using 
column 39 and row 24. 

Notice the changes in value for EV, EH, VN, and HN to 
eliminate the two unPRINTable columns. Line 30 sets up the 
array V§$(n) to control vertical movement. 


Program 5-3. Moving with PRINT 

Remember, do not type the checksum number at the end of each line. For example, do 
not type :rem 123. Please read Appendix J, “Automatic Proofreader,’ before entering 
this program. 


12 DIM V${23) srem 187 
2@ EV=22:EH=37 :BV=1: BH=1 :HN=39:VN=24:FGS="{BLK}X": 

BLS="{ BLK} ":BC=7 trem 124 
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38 V$(0)="{HOME}":FOR I=1 TO 23:V$(I)=VS(I-1)+" 
{DOWN} ":NEXT :rem 280 

48 POKE 53281,BC:POKE 53289,BC:PRINT "{CLR}":rem 1 
5@ H=1:V=0:XH=19:XV=11:PRINT V$(XV)TAB(XH)FGS 

srem 217 
109 IF VAL(TI$}>1 THEN GOSUB 994:TI$="989900" 

trem 113 
199 IF H=@ AND V=0 THEN GOSUB 998:GOTO 199:rem 219 
200 NH=XH+H+HN*((XH>EH AND H=1)}-(XH<BH AND H==1)) 


rem 147 
218 NV=XV+V+VN*{ (XV>EV AND V=1)~(XV<BV AND peal 
3; rem 

228 PRINT V$(XV)TAB(XH)BLSVS(NV)}TAB(NH)FGS:rem 242 
248 XH=NH:XV=NV srem 216 
296 GOTO 106 srem 191 
999 H=SGN( INT(RND(9)*3)-1) :V=SGN( INT(RND(9}*3)=1): 
RETURN : rem 74 


Little Boxes 

Program 5-4 introduces a new feature—multiple figure move- 
ment. Using the PRINT method, we'll put four figures on the 
screen and move them all. But they’l] each remain in a separate 
area of the screen, as if each had its own little box. 

This program started with Program 5-3 and made 
changes—but enough changes that again the whole listing is 
included. Notice that all the movement control variables have 
been ae ae to arrays. The movement of figure FG$(0) is 
controlled by the variables NH(0), XH(0), H(0). The edges are 
also arrays, since each figure has its own miniscreen to work 
with: FG$(0) can move only within the area defined by EH(0), 
BH(0), EV(0), and BV(0); when it reaches one of those edges, it 
wraps around using the variables VN(0) and HN(0). 

The arrays are all set up in the routine starting at line 300. 
Figure 5-1 illustrates the screen arrangement. FG§(0), the white 
circle, stays in the upper-left corner; FG$(1), the black circle, 
stays in the upper-right; FG$(2), the reversed white circle, 
stays in the lower-left, and FG$(3), the reversed black circle, 
stays in the lower-right. 

Notice that pairs of figures have borders in common. The 
two white figures, for instance, have the same horizontal 
edges, and the two black circle figures have the same hori- 
zontal borders. The two regular circles (0 and 1) have the same 
vertical edges, and the two reversed circles (2 and 3) have the 
same vertical borders. 
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Therefore, the setup routine from 300 to 390 uses loops 
and sets the boundaries using these pairs. 


Figure 5-1. Segmented Screen 


Program 5-4. Little Boxes 


Remember, do not type the checksum number at the end of each line. For example, do 
not type :rem 123. Please read Appendix J, “Automatic Proofreader,’ before entering 
this program. 


12 DIM V$(23),EV(3),EH(3),BV(3},BH(3),HN({(3),VN(3), 


FG$(3),H(3),V(3) zrem 110 
28 GOSUB 380:BLS="{BLK} ":BC=5 zsrem 163 
39 VS(@)="{HOME}":FOR I=1 TO 23:VS$(I}=VS(I-1)+" 

{DOWN} " :NEXT trem 260 


49 POKE 53281,BC:POKE 532808,BC:PRINT "{CLR}":rem 1 
58 GOSUB 994:FOR i=@ TO 3:PRINT V$(XV(1I))TAB(XH(I) 


}FGS{1I) sNEXT srem 52 
106 FOR I=8 TO 3:IF VAL{TI$)>1 THEN GOSUB 994:TIS$= 
"999900" :rem 38 
199 IF H(I)=8 AND V(I)=@ THEN GOSUB 986:GOTO 190 
s:rem 5 
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200 NH(1)=XH(1)+H(1I)+HN(Z)*((XH(1)>EH(I}AND H(I)=1 


}-(XH(I)<BH(I)JAND H(I)=-1)) srem 151 
218 NV(I)=XV(1I)4V(1)+VN(1)*((XV(I)>EV(I)AND V(I)=1 
}+-(XV(L)<BV(IJAND V{(I)=-1)) srem 36 
228 PRINT VS(XV(1))TAB(XH(I)) BLSV$(NV(1)})TAB(NH(T) 
)FGS (TI) :rem 244 
248 XH(I)=NH(1I):XV(I)=NV(L) srem 58 
298 NEXT:GOTO 199 trem 222 
368 FORI=0 TOLsEV(I)=l1:EV(1+2)=22:BV(I)=1:BV(I+2) 
=13:VN(I)=12:VN(I+2)=11:NEXT srem 290 
31@ FORI=@ TO 2 STEP 2:EH(1I)=18:EH(I+1 )=37:BH(I)=1 
:BH(I+1)=21 srem 5 
328 HN(I)=1:HN(I+1)=1:NEXT rrem 224 


330 FGS$(S)="{WHT}O":FG$(1)="{BLK}Q":FG$(2)=" {WHT} 
{RVSJO{OFF}":FGS$(3}="{BLK} {RVS}Q{OFF}":rem 204 

348 POR I=@ TO 1:XV(I)=7:XV(1I+2)=19:NEXT <:rem 253 

358 FOR I=@ TO 2 STEP 2:XH(I)=10:XH(I+1)=30:NEXT 


srem 115 

390 RETURN srem 124 

989 H(1)=SGN( INT(RND(9)*5)-3) :V(I)=SGN( INT(RND(9)* 

5)-3) : RETURN :rem 133 

994 FORJ=@ TO 3:H(J}=SGN( INT (RND(9)*5)-3):V(J)=SGN 

(INT( RND(9)*5)-3) sNEXT: RETURN srem 175 
Multiple Movements 


Single character animation can make a good game, without 
ever using a sprite—several of the games in this book work 
that way. However, usually in game programming on the 64, 
the player’s figure will be a sprite. Individual character move- 
ment will then be used for computer-controlled opponents. 

If there is a single opponent figure, it might as well be a 
sprite, too. But many arcade games use a different principle— 
instead of a single smart opponent, they use many dumb 
opponents. The player is overwhelmed by numbers, not by 
speed or accuracy. Think of Asteroids, Space Invaders, Donkey 
Kong, and Donkey Kong Jr. The asteroids and aliens, barrels and 
eaters are not particularly fast or smart—their movements are 
predictable and easy to beat. What makes the games chal- 
lenging is that there are so many of them, coming at you from 
every direction. 

Program 5-5 puts ten figures on the screen and moves 
them in fairly predictable patterns. However, they aren't all the 
same patterns. Some move up and down, some move left and 
right. The same movement and edge-checking program we've 
used all along is again the basis of this program. 
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There are five pairs of characters. Both members of each 
pair start out in the same place on the screen, but one will 
move only horizontally, and the other will move only vertically. 
Since each pair starts in a different place, and since the hori- 
zontally moving figures have farther to travel than the verti- 
cally moving figures, the regular movement wouldn't 
necessarily be obvious during the middle of a game. Each indi- 
vidual character moves slowly—but if you were controlling a 
large sprite that had to get through them without touching any 
of them to pick up certain objects scattered about the screen, 
you'd think they were moving pretty fast! 


How the Program Works: 

Line Function 

10-40 Standard Setup 

50 Set initial screen positions. 


100-110 Vertical Movement Loop 
Figures 0-4 move only vertically. Therefore, there is 
never a need to check their horizontal position or 
‘movement. This loop handles only vertical move- 
ment, and if an edge is reached the program jumps to 
the subroutine at 400, which changes the direction 
variable DI(n) so the figures bounce off the walls. 

120-130 Horizontal Movement Loop 
Figures 5-9 move only horizontally, so only hori- 
zontal movements are checked. The direction varia- 
bles are changed at 450. 

300-390 Array Setup 

400-450 Reverse Direction Subroutines 


Program 6-5. Move Ten Figures 


Remember, do not type the checksum number at the end of each line. For example, do 
not type :rem 123. Please read Appendix J, “Automatic Proofreader,’ before entering 
this program. 


18 DIM V$(23)},FG$(9),xXV(9),NV(9),XH(9),NH(9),DI(9) 


trem 117 
28 GOSUB 362 trem 117 
39 BLS=" ":BC=1 trem 195 


48 POKE 53281,BC:POKE 53288,BC:PRINT “{CLR}"srem 1 
58 FOR I=8 TO 9:PRINT V$(NV(1))TAB(NH(1I) )FG$(1I):NE 


xT srem 292 
180 FOR I=8 TO 4:NV(I)=NV(I)+DI(I)<sIF NV(I)>23 OR 
{SPACE}NV(1I}<@ THEN GOSUB 492 rem 130 
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110 PRINT v${xXvV(1I))TAB(NH{1I) }BLS$V$(NV(1I)) TAB(NH(I) 


}FGS(1):XV(I)=NV(1} :NEXT srem 94 
128 FOR I=5 TO 9:NH(I)=NH({I)+DI(1):IF NH(I)>38 OR 

(SPACE}NH(1)<@ THEN GOSUB 456 :rem 97 
136 PRINT V$(NV(I))TAB(XH(1I) )BLSV$(NV(I))TAB(NH(I) 

)FGS(1):XH(1I)=NH(1}:NEXT trem 68 
14@ GOTO 186 :rem 95 
366 FOR I=@ TO 4:NH(1I)=3+1*9:NH(I+5 )=NH(I) :NV(I)=3 

+I*4:NV(I+5)=NV(1):NEXT srem 116 
319 FOR I=@ TO 9:XV(1I)=NV(I):XH(1I)=NH(I):NEXT 

srem 1608 

328 v$(@)="{HOME}":FOR I=1 TO 23:V$(I)=V$(I-1)}+" 

{Down} :NEXT srem 258 


348 FG$(G)="{RED}Q” :FG$(1)="{PUR}Z": FGS(2)="{BLKJA 
":FG$(3)="{GRN}EB3":PG$(4)="{BLU}X" srem 144 


350 FOR I=0 TO 4:FG$(1I+5)=FG$(1):NEXT trem 242 
36@ FOR I=@ TO 9 STEP 2:DI(1I)})=1:DI(1I+1)=-D1{1I) :NEX 
T srem 22 

. 399 RETURN srem 124 


499 DI(I)=-DI(1) :NV(I)=XV(I)+DI(1I):RETURN :rem 181 
458 DI(1I)=-DI{(I) :NH(1I)=XH(1I)+DI(I):RETURN srem 158 


Speed through Complication 

If this seems slow to you, remember that speed is largely an 
illusion in arcade games. We can make this routine seem 
much, much faster by slowing down the ten figures already on 
the screen, but adding two other characters that travel diago- 
nally at ten times the speed of the other characters. 

Program 5-6 does this. Four lines are added within each of 
the two movement loops — lines 105-108 and 125-128. These 
lines are loops themselves, which are carried out completely 
each time through the larger movement loops. This means that 
figures 10 and 11 both move every time any one of the other 
figures moves. Notice, too, that figures 10 and 11 always move 
both horizontally and vertically—the effect is that they move 
diagonally. They require their own rebound routines at 420 and 
470, and they are set up at lines 370 and 380. There are also 
changes from Program 5-5 in lines 10 and 50. 

Simple changes, really—but the effect is quite pro- 
nounced. Imagine the same program with redefined charac- 
ters, so that these are ants moving across a sidewalk, and the 
two fast ones are spiders. Or these are cars, and the two fast 
ones are speeders. Or balls, or fish, or whatever you want 
them to be. 

The technique of embedding one figure’s movement inside 
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a loop that controls other figures is one we'll use again. We'll 
use it to control missiles in Chapter 13, for example, since 
you'll naturally want missiles to move faster than their targets. 
(Much of this program is identical to Program 5-5, Move 
Ten Figures. If you've already entered and SAVEd Program 
5-5, all you have to do is enter the new lines. These are: 10, 50, 
105-108, 125-128, 370, 380, 420, and 470.) 


Program 5-6. Varied Speeds 


Remember, do not type the checksum number at the end of each fine. For example, do 
not type :rem 123. Please read Appendix J, “Automatic Proofreader,” before entering 
this program. 


16 DIM V$(23),PG$(11},Xv(11),NV(11),XH(11),NH(11), 


DI(9),DV(11),DH(11} trem 38 
26 GOSUB 309 srem 117 
38 BLS=" "*;BC=1 srem 195 


46 POKE 53281,BC:POKE 53280,BC:PRINT "{CLR}":rem 1 
58 FOR I=@ TO 11:PRINT VS(NV(1))TAB(NH(1))FGS(I):N 


EXT srem 243 
196 FOR I=@ TO 4:NV(I)=NV(I)+DI(I}:IF NV(I)>23 OR 
{SPACE]NV(I)<@ THEN GOSUB 44d srem 134 
185 FOR J=18 TO 1L:NV(J)=NV({J)4+DV(J):IF NV(J)>23 0 
R NV(J}<@ THEN GOSUB 426 srem 251 
196 NH(J)=NH(J)+DH(J):IF NH(J)>38 OR NH(J)<@ THEN 
{SPACE}]GOSUB 479 srem 179 
197 PRINT v$(xXv(J)) TAB(XH(J) )BL$VS(NV(J)) TAB(NH(J) 
)FGS (J). :rem 253 
168 XH(J)=NH(J):XV(J)=NV(J) :NEXT :rem 186 
118 PRINT V$(XV(1I))TAB(NH(I) )BLSV$(NV(1I))TAB(NH(I) 
PGS (I) :XV(I)=NV(1I)} :NEXT trem 94 
128 FOR I=5 TO 9:NH(I)=NH(I}+DI(I):IF NH(I)>38 OR 
(SPACE}NH(I)<@ THEN GOSUB 458 srem 97 
125 FOR J=19 TO 11:NH(J)=NH(J)+DH(J):IF NH(J)>38 0 
R NH(J)<@ THEN GOSUB 4798 zrem 194 
126 NV(J)=NV(J)+DV(J):IF NV(J)>23 OR NV(I)<8 THEN 
{SPACE}GOSUB 428 rem 248 
127 PRINT V$(xXV(J))TAB(XH(J) )BLSV$(NV(J))} TAB(NH(S) 
)PFGS$(J} srem 255 
128 XH(J}=NH(J):XV(J)=NV(J):NEXT srem 188 
136 PRINT v$(NV(1))TAB(XH(1) ) BLSV$(NV(I)) TAB(NH(1) 
)FGS(1):XH(I)=NH(1I):NEXT zrem 68 
148 GOTO 168 srem 95 
300 FOR I=08 TO 4:NH(1)=3+I*8:NH(I+5)=NH(I):NV{(1I}=3 
+1*4:NV(1I+5 )=NV(1) sNEXT srem 116 
318 FOR I=9 TO 9: sxv(I)=Nv(1): :XH(I}=NH{1):NEXT 
srem 1086 
3208 V$(@)="{HOME}":FOR I=l TO 23:V${I)=v$(I-1)+" 
{DOWN} ” sNEXT trem 252 
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348 FGS(G)="{REDJQ" :FGS(1)="{PUR}Z":FG$(2)="{BLK}A 
":FGS$(3)="{GRN}EB3":FGS(4)="{BLU}X" rem 144 


359 FOR I=@ TO 4:FG$(1I+5)=FGS$ (1) :NEXT trem 242 
36@ FOR I=@ TO 9 STEP 2:DI(I)=1:DI(I+])=-D2I(1) :NEX 

T trem 22 
370 FOR I=18 TO 11:NH(1I)=8:NV(1)=19:XV(1I)=19:XH(I) 

=B8:FGS(I}="K29+" :NEXT zrem 198 
388 DV{10)=1:DV(11)=-1:DH(10)=-1:DH(11)=1 :srem 113 
390 RETURN rem 124 


46@ DI(I)=—-DI(1I) =NV(1I)=XV(1)+DI{(I}:RETURN :srem 181 
42@ pv(J)=-DV(J}) «NV(J)=XV(J)+DV(J):RETURN s:rem 227 
450 DI(I}=-DI(I)}:NH(I)=XH(1I)+DI(1I}:RETURN srem 158 
478 DH(7)=-DH(J)sNH({(J)=XH{J)+DH(J):RETURN :rem 162 


Smooth Movement 

The movement in all these routines has been jerky. This is 
because we are moving from one character position to the next, 
with nothing in between. If you want smooth movement, all 
you have to do is create custom characters that, in combina- 
tion, represent the stages of movement. For instance, if you 
were going to PRINT the leftward movement of a unicycle, you 
might have one character that contained the whole unicycle. 
The next step would be two characters: the left one would 
contain one-fourth of the unicycle, while the right one 
contained three-fourths. The next pair would each contain 
half; the next half would show the movement three-fourths 
complete; and at last you're back to the starting position. 

On some computers, this is the only way to get smooth 
movement. On the 64, however, you have sprites. They move 
one dot at a time, so that their animation is very smooth. 
When you need the effect of smooth animation, sprites will be 
your first choice. 


Fast but Dumb: Moving in a Group 

Often, though, you won't need smoothness so much as quan- 
tity. There is almost no limit to the number of characters you 
can have moving around on the screen, but there is a limit to 
the number of sprites you can have. 

If your figures move independently, as they have so far, 
you have to expect them to move fairly slowly. Twelve on the 
screen at the same time was none too quick in BASIC. Even 
when they only move in one line, either horizontally or verti- 
cally, as long as you have to do edge-checking for each char- 
acter independently, you are not going to have speed. 
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There's no law that says figures have to move indepen- 
dently, however. If you put the characters together in a group 
and move them with a single control loop, you can gain back a 
lot of speed. Think of the rows of descending aliens in Space 
Invaders. The game was not easy, though its day in the arcades 
has passed; in BASIC you can program the same sort of move- 
ment pattern. 

Program 5-7 shows something like the Space Invaders 
movement pattern. First, rows of aliens are set up, using the 
playing card symbols (hearts, spades, clubs, and diamonds) 
and a few other symbols from the built-in graphics character 
set. Each row begins with a CURSOR DOWN and contains 
exactly enough characters, including blanks, to fill a 40- 
character row. This way, the entire block can be PRINTed in 
sequence, very quickly. All that needs to change is the starting 
point of the first string; the rest follow in sequence. 

The movement is controlled in two FOR-NEXT loops. 
First, a positive loop takes the block of characters from left to 
right. Then a negative oe (STEP — 1) takes the group from 
right to left again. When they reach the left-hand edge, the 
screen is cleared and the starting position for the two loops is 
dropped down one line. 

Later, in Chapter 13, we'll use this program as the starting 
point for “Card Invaders,” a target shooting game that demon- 
strates missiles. 


Program 5-7. Moving as a Group 


Remember, do not type the checksum number at the end of each line. For example, do 
not type :rem 123. Please read Appendix J, “Automatic Proofreader," before entering 
this program. 


19 DIM FG$(6),FS(6},VS(9) srem 192 
26 GOSUB 366 srem 117 
39 BLS=" ";BC=1 srem 195 
49 POKE $3281,BC:POKE $3288,BC:PRINT "{CLR}":rem 1 
180 FOR X=8 TO 8:PRINT "{CLR]}" trem 182 
118 FOR I=0 TO 15:PRINT V$(X)TAS8(I});:FOR J=@ TO 6: 

PRINT PGS(J);:NEXT:NEXT srem 191 


120 FORI=14 TO @ STEP=-1:PRINT V$(X)TAB(I}; :FORJ=08 
{SPACE}TO 6:PRINT FG$(J)};:NEXT:NEXT srem 89 


130 NEXT X srem 43 
148 GOTO 108 rem 95 
306 FS(G)="Q"sF$(1L)="S":P$(2)="A" 2 F$(3)="Z2°: FS (4)= 

"x"; PS(5)="{RVS} TOFF} ":F$(6)="£" zrem 92 
310 FORI=9 TO 6:PG$(1)="{DOwN}" :rem 33 
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326 FORJ=@ TO 7:FGS(I)=PGS(I)+" “+FS(I)+" “s:NEXT 


trem 164 

338 FG$(I)=FGS(1I)+"{16 SPACES }":NEXT srem 81 
349 v$(9)="{HOME}*:FOR I=1 TO 9:v$(I)=vV$(I-1)+" 

{DOWN} " :NEXT zrem 208 

399 RETURN srem 124 


Animation 

In Chapter 4 we created custom characters so we could get 
exactly the shape we wanted on the screen. In this chapter 
we've moved characters around on the screen. Now it’s time to 
put those together, and change the shape on the screen in order 
to make figures more realistic, which will help make the game 
world more real. 

The basic technique of animation is to switch from one 
shape to another to give the illusion of reality within the figure. 
The two {or more) shapes must be different, or no movement 
will seem to take place. However, the shapes must also be 
similar enough that the player will realize that they are meant 
to represent the same figure. 

This balance between similarity and difference requires 
some planning and thought. An explosion, for instance, radi- 
cally changes the shape of the figure, but you can get away 
with it because it happens in the same place as the figure that 
exploded, and because (usually) the player has seen the event 
that caused the explosion. Even so, the most effective explo- 
sion is one in which the actual shape of the exploding space- 
ship can be seen to break apart, with individual pieces floating 
away. 

The player must always be able to recognize the figure, 
either by its shape or by its location. You can transform the 
shape as long as you make it clear that it’s really the same 
object. Or you can move the object as long as you keep the 
shape clearly similar. 


Complex Characiers and Direction Changes 

Let's start with a fairly simple animation problem. Program 5-8 
creates a dragon which will move back and forth across the 
screen. The dragon is a complex character. It was drawn facing 
left. This is fine, as long as the dragon is moving left. But we 
want it to go back and forth across the screen, from one edge 
to the other. We need the dragon to face right, too. 
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The easiest method is to create characters representing the 
left-facing dragon, and other characters representing the right- 
facing dragon. You can create both dragons separately on 
graph paper, or you can use the method in this program. The 
routine from 300 to 370 READs the same DATA for both the 
left-facing dragon and right-facing dragon. But as it READs the 
DATA for the right-facing dragon (lines 340-370), it first flips 
every byte of every character pattern. This is time-consuming 
in the setup, but it does make sure that the right-facing dragon 
is an exact mirror image of the left-facing one. 

The two complex characters, one for either direction, are 
set up as a two-element string array, DR$(n), in lines 400-430. 
Each dragon image consists of three rows of four characters 
each. Between the rows are the CURSOR DOWN and 
CURSOR LEFT instructions to get from the end of one row to 
the start of the next. There is a crucial difference between the 
handling of the two strings. The left-moving dragon has a 
blank space at the right-hand end of each row of the complex 
character. The right-moving dragon has a blank space at the 
left-hand edge of each row. Since the dragon will always move 
one column at a time, this column of blanks will erase the 
column of characters left behind when the dragon moved. It 
saves our having to erase the old image separately, and helps 
to reduce flicker. 

If the dragon were to be moved up and down, too, you 
would need to add rows of blanks that will be PRENTed behind 
the character, depending on its direction of movement. It 
would be possible to create upward- and downward-flying 
images, too. 

You might also notice that in the main movement loop, 
the rightward movement loop goes from 0 to 35, and the left- 
ward STEPs backward (-1) from 35 to 0. Even though the 
screen is 39 columns wide, 35 is the rightmost position we can 
use. This is because the dragon is four characters wide, and the 
string is positioned from its upper ieft-hand corner. (We are 
also not using column 39, as is usual with PRINT movement 
routines.) 

If you'd like to see how the characters are actually set up, 
first RUN the program, then press, RUN/STOP-RESTORE. The 
screen will return to blue and the regular character set. Then 
type GOTO 100. Now you'll see the rows of letters moving 
across the screen. 
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When the program runs, the dragon’s movement is far 
more realistic, because now it faces the direction it is moving. 
It still isn’t full animation since it doesn’t seem to move, but it’s 
an improvement over having only one image. 


Program 5-8. Back and Forth Dragon 


Remember, do not type the checksum number at the end of each line. For example, do 
not type :rem 123. Please read Appendix J, “Automatic Proofreader,” before entering 
this program. 


10 DIM DRS$(1) zrem 119 
28 CC=14:CH=CC*1824 :rem 3 
30 PRINT "Rid(CLR}"sPOKE 53272, (PEEK(53272)AND 2 
48)OR CC:POKE 53281,8 trem 2 
4@ GOSUB 380:GOSUB 432 srem 197 
58 SPEED=99 srem 133 
97 REM :rem 84 
98 REM MOVE LEFT TO RIGHT 2rem 216 
99 REM trem 86 
106 FOR I=@ TO 35:PRINT DOWNS TAB(I)DRS$(1) trem 9 
118 FOR WA=8 TO SPEED: NEXT: NEXT trem 132 
117 REM zrem 125 
118 REM MOVE RIGHT TO LEFT rem 1 
119 REM trem 127 
120 FOR I=35 TO @ STEP -l1:PRINT DOWNSTAB(I)DRS(@) 
srem 164 
13@ FOR WA=6 TO SPEED:NEXT:NEXT rem 134 
148 GOTO 168 :rem 95 
297 REM trem 134 
298 REM MAKE MONSTER SET trem 185 
299 REM :rem 136 
360 FOR I=@ TO 11:T=I*8:FOR J=CH+T TO CH+T+7 
srem 188 
310 READ N:POKE J,N:NEXT:NEXT trem 29 
317 REM srem 127 
318 REM MAKE MIRROR=-IMAGE SET trem 245 
319 REM :rem 129 
320 RESTORE:FOR H=8 TO 8 STEP 4:FPOR I[=@ TO 3:FOR J 
=9 TO 7 srem 57 
338 T=CH+184-( ((I1+8=-H) )*8)4+7 srem 146 
337 REM sxrem 129 
338 REM BYTE-FLIPPING ROUTINE trem 98 
339 REM srem 131 
348 READ N:FOR K=@ TO 7:N=N*2 srem 35 
350 IF N>255 THEN W=W+2{K:N=N-256 srem 76 
360 NEXT K:POKE T,W:W=0:NEXT:NEXT: NEXT trem 204 
378 FOR I=256+CH TO 263+CH:POKE 1I,@:NEXT I:RETURN 
: srem 56 
397 REM trem 135 
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398 REM SET UP STRINGS srem 67 
399 REM srem 137 
488 DOWNS="{HOME}{16 DOWN} “ srem 148 
419 DR$(@)="@ABC {DOWN} {5 LEFT}DEFG {DOWN} {5 LEFT} 
HIJK “ trem 215 
420 DR$(1)=" LMNO{DOWwN}{5 LEFT} PORS{DOWN}{5 LEFT} 
Tuvw " srem 105 
438 RETURN trem 119 
497 REM trem 136 
498 REM DATA FOR DRAGON trem 69 
499 REM trem 138 
590 DATA 9,9,8,1,15,28,8,9 zrem 229 
51 DATA 16,48, 240,152, 248,124, 206,135 trem 75 
526 DATA 8,132, 70,39,55,55,55,119 trem 95 
538 DATA 0,9,8,192,128,128,192,248 srem 1308 
548 DATA 8,9,2, 1,5,2,9,8 :rem 113 
550 DATA 3,7,15,38,30,198,95,15 srem 236 
560 DATA 175,159,255, 96,0,9,0,128 srem 91 
570 DATA 240,240,248, 255,48,0,2,194 rem 188 
589 DATA 9,9,4,11,1,2,9,8 z:rem 164 
599 DATA 23,27,61,224,0,08,12,19 rem 230 
600 DATA 241,255,254, 248, 225, 98,194,161 srem 144 
610 DATA 226,49, 25,508,194,9, 21,226 trem 148 
Character Set Flipping 


To create much more realistic movement, we need something 
that will change the shapes far more often than just when the 
figure reaches the edge of the screen and changes direction. 
You could create two figures the way we did with the dragon, 
and switch back and forth between them each time it is 
PRINTed. This would be fairly simple—you could do it by 
PRINTing the array with a toggle switch variable, like this: 

K= -(K=0):PRINT FG$(K) 

Every time through the loop, the variable K will switch from 0 
to 1 or from 1 to 0. That way you will PRINT alternate figure 
strings. 

This is not a bad method, but it can require an awful lot of 
programming to set up all the string arrays. And if you try to 
do it with more than one or two characters on the screen, 
you'll find that your program slows down unbearably. Worst of 
all, any character you animate using this method must be 
tracked constantly through all its movements. This means your 
loops will get quite long, and movement will be slow. You have 
to rePRINT or rePOKE every animated character, every time! 
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Fortunately, there is a way to animate entire screen 
displays, with hundreds of characters at once—and it only 
takes a single POKE each time through the main loop. Not a 
single POKE for each character—a single POKE for the entire 
screen. Like all special effects, it takes some setting up—but 
it’s less time-consuming than setting up dozens of string arrays 
and tracking them all over the screen. The effect can be 
dazzling, without costing your game any speed during play. 

The technique is character set flipping. You start out by 
setting up two (or more) custom character sets. One might 
start at the 12K boundary and the other at the 14K boundary. 
Any characters that you don’t want to animate must be 
contained in both sets, exactly alike. Any characters that you do 
want to animate must be different in the two sets. Then you 
POKE a character set instruction into location 53272 each time 
through the loop, alternating between the two sets. 

When you change that single pointer at 53272, the effect is 
instantaneous. Every character that is different in the two sets 
changes at once; and every character that is the same in both 
sets remains the same. This demonstration program shows the 
basic technique. Only two custom characters are different 
between the two character sets. So those two characters are the 
only ones that seem to move. The other characters on the 
screen give no sign that their patterns are coming from some- 
where else. The illusion of movement is complete. And it’s so 
fast that if,youedon’t have a delay loop in the program, the 
animation will turn into a blur. 


Program 5-9. Two Character Sets 

Remember, do not type the checksum number at the end of each line. For example, do 
not type -rem 123. Please read Appendix J, “Automatic Proofreader,’ before entering 
this program. 


5 T=168 zrem 93 
18 DIM cCc{1),CH(1),cCB(1) trem 175 
15 cc(G}=12:cc(1)=14 srem 241 
28 FOR I-08 TO 1:CH(1)=1024*cC(1):CB(1I)=(PEEK(53272 
JAND 248)0R CC(I) :NEXT srem 131 
25 GOSUB 1146 srem 169 

38 FOR I=8@ TO 1:FOR J=27 TO 28:FOR K=6 TO 7 
trem 165 

4@ READ A:POKE CH{1)+8*J+K,A:NEXT:NEXT:NEXT 
srem 116 

lea xs="e£ Le Ce Leffel PE RSS Hoa aee ees 

WATCH THE CHANGES-----------“ rem 129 
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105 PRINT “{HOME}";:FOR I=@ TO 11:PRINT XS$XS$R$:NEX 


T srem 63 

118 POR I=8 TO 1:POKE 53272,CB(I):FOR J=@ TO T:NEX 
T:NEXT:GOTO 119 srem 128 
1168 POKE 56334, PEEK(56334)AND 254:POKE 1,PEEK(1)A 
ND 251 trem 227 

1118 FOR 1=@ TO 1:RM=53248-CH(I) trem 162 
1120 FOR J=CH(I} TO CH{1I)+5113:POKE J,PEEK{J+RM) :NE 
XT:NEXT trem 60 

1138 POKE 1,PEEK(1) OR 4:POKE 56334, PEEK(56334)O0R 
{SPACE}1 srem 188 

1149 RETURN srem 166 
1300 DATA 9,9,3,3,3,3,9,8 trem 158 
1319 DATA 9,12,18,34, 36,24,8,8 srem 165 
1326 DATA 192,192,8,0,8,08,192,192 :rem 68 
1330 DATA @,0,48,72,68,36,24,8 ¢rem 183 


Movement and Animation Together 

Now let's look at this with moving figures. Notice that the 
animation requires no tracking whatsoever, and no arrays. 
Once the two sets are in memory, it is just a single POKE each 
time through the movement loop. It makes for a much more 
interesting display than our earlier screens. 


Program 5-10. Two Sets Animation 


1 T=3 srem 245 
5 POKE 53281,7:POKE 53289,7:PRINT “E24” srem 56 
18 DIM CC(1),CH(1),CB(1),S$(23),A$(T),X(T),¥(T),XD 
(T),YD{T) rrem 198 
1S cec(G)=12:CcC(1)=14 srem 241 
18 REM z:rem 77 
19 REM SET UP TWO CHARACTER SETS rrem 165 
20 FOR I=@ TO 1:CH(1)=1024*CC(I) :CB(I)=(PEEK(53272 
JAND 248})0R CC{1I):NEXT srem 131 

39 FOR I=8 TO 1:FOR J=27 TO 29:FOR K=@8 TO 7 
trem 166 

4@ READ A:POKE CH(1)+8*J+K,AsNEXTsNEXT:NEXT 
. :rem 116 
59 FOR I=@ TO 1:FOR J=256 TO 263:POKE CH(I)+7,%:NE 
XT:NEXT srem 179 
58 REM srem 31 
59 REM DEFINE CURSOR MOVEMENTS srem 153 
6@ GOSUB 119d :rem 168 
68 REM :rem 82 
69 REM SET STARTING POSITIONS srem 115 
70 FOR I=8 TO T:GOSUB 940:AS$S(I)=CHR$(91+R) :NEXT:XS$ 
at « zrem 177 
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75 FOR I=8 TO T:GOSUB 956:X(I)=R:GOSUB 960:Y(I)=R: 
NEXT srem 161 
80 FOR I=@ TO T:GOSUB 980:XD{I)=R:GOSUB 984:YD(1I}= 
R:NEXT srem 42 

99 PRINT "“{CLR}" srem 205 
98 REM srem 85 
99 REM MAIN MOVEMENT LOOP srem 32 
186 FOR I=6 TO T:K=-(K=0) :rem 29 
188 REM srem 125 
109 REM CHECK FOR EDGES srem 43 
110 IF X{I}<l OR X(I)}>37 THEN GOSUB 399 srem 253 
126 IF Y{1I)<l OR Y¥(I}>22 THEN GOSUB 329 rrem 252 
123 REM srem 122 
124 REM ERASE OLD POSITIONS trem 146 
125 PRINT sS(Y({I))TAB(X{I)}XS$ :rem 118 
128 REM rem 127 
129 REM SET NEW POSITION VALUES :rem 155 
138 X{I})=X(1I)+xD(I) s¥(1)=¥(1)+yYD(I) srem 213 
138 REM trem 128 
139 REM PRINT AT NEW POSITIONS srem 85 
140 PRINT S$(Y{1I))TAB(X{I))AS$(I) srem 246 
148 REM srem 129 
149 REM ANIMATE BY SWITCHING SETS trem ll 
158 POKE 53272,CB(K) :NEXT trem 142 
168 GOTO 186 trem 97 
298 REM srem 135 
299 REM REBOUND FROM SIDE srem 248 
308 xD(1)=-xD(I) srem 1285 
363 REM :rem 122 
304 REM SET REBOUND DIRECTION trem 23 
365 IF(Y(I)>@)AND(Y(I)<38) THEN ON YD(I)+2 GOSUB 9 
99,980,978:YD(1L)=R srem 178 

318 RETURN rem 116 
318 REM zrem 128 
319 REM REBOUND FROM TOP OR BOTTOM srem 45 
32@ YD(I)=-yYD{I) srem 189 
323 REM srem 124 
324 REM SET REBOUND DIRECTION srem 25 
325 IF(X(1)>@)AND(X(1I)<23) THEN ON XD{I)+2 GOSUB 9 
99,988,978:XD(I)=R srem 173 

330 RETURN srem 118 
938 REM zrem 136 
939 REM RANDOMIZE CHARACTER rrem 191 
949 R=INT(3*(RND(9)))}:RETURN trem 158 
948 REM srem 137 
949 REM SET RANDOM STARTING POSITIONS rrem 107 
956 R=1+INT(RND(9)*36) :RETURN srem 224 
964 R=1+INT({RND(9)*21);RETURN :rem 219 
968 REM srem 139 
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969 REM RANDOMIZE REBOUND DIRECTION z:rem 229 
978 R=INT(2*RND(9)):RETURN z:rem 79 
980 R=INT(2*RND(9)):IF R=8 THEN R=-l1 :rem 218 
985 RETURN srem 134 
998 R=-INT(2*RND(9)):RETURN trem 126 
1898 REM srem 182 
1699 REM SET UP CURSOR POSITIONS zrem 238 
1188 s${g)="{HOME}":POR I=1 TO 23:S${(I)=S${I-1)+" 
{DOWN} :NEXT: RETURN :rem 56 
1998 REM :rem 191 
1999 REM DATA FOR CHARACTER SET 1 trem 187 
2000 DATA 0,66,608,68,68,69,66,08 zrrem 224 
2018 DATA 24,24,36,36,66,66,129,129 zrem 191 
2626 DATA @,12,18,34,68,72,48,0 zsrem 232 
2998 REM trem 192 
2999 REM DATA FOR CHARACTER SET 2 zrem 189 
3000 DATA @,60,126,126,126,126,69,9 zsrem 161 
3810 DATA 24, 24,24,24,36, 36,36, 36 rrem 78 
3620 DATA 9,48,72,68,34,18,12,8 srem 233 


Here is the same routine, but with an improved illusion of 
fast movement. Instead of moving every character each time 
through the movement loop, a random number is generated, 
which points to one character. That character is moved, and no 
others. This means that sometimes a single character can move 
in a burst of speed, while at other times it can rest. The unpre- 
dictabililty makes the movement more exciting to watch. And 
with the animation going on constantly, the characters that 
aren’t moving from place to place still seem to be “alive.” 


Program 5-11. Two Sets Random 


Remember, do not type the checksum number at the end of each line. For example, do 
not type :rem 123. Please read Appendix J, “Automatic Proofreader,” before entering 
this program. 

1 T=9 srem 251 
5 POKE 53288,9 :POKE 53281,9:PRINT “{WHT}":rem 172 
18 DIM CC(1),CH(1},CB(1),8$(23),A$(T), X(T), ¥(T),xD 


(T),YD(T) zrem 108 
15 cc{(g)=12:cc{1)=14 srem 241 
18 REM trem 77 
19 REM SET UP TWO CHARACTER SETS :rem 165 
20 POR I=@ TO 1:CH(I)=1824*CC(1):CB(1)=(PEEK(53272 
JAND 249)OR CC{I):NEXT srem 131 

30 FOR I=@ TO 1:FOR J=27 TO 29:FOR K=08 TO 7 
srem 166 

48 READ A:POKE CH({1)+8*J+K,A:NEXT:sNEXTs:NEXT 
, srem 116 
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56 FOR I=@ TO 1:FOR J=256 TO 263:POKE CH(1I)+J,4:NE 
XT :NEXT :rem 179 

58 REM trem 81 
59 REM DEFINE CURSOR MOVEMENTS srem 153 
68 GOSUB 1186 srem 168 
68 REM trem 82 
69 REM SET STARTING POSITIONS rrem 115 
78 FOR I= TO T:GOSUB 940:A$(1I)=CHRS(91+R):NEXT:XS$ 
<n srem 177 

75 FOR I=8 TO T:GOSUB 95@:X(IJ=R:GOSUB 960:Y{(I)=R: 
NEXT srem 161 

88 POR I=8 TO T:GOSUB 98@:XD{I)=R:GOSUB 986:YD(I}= 
R:NEXT trem 42 

98 PRINT “{CLR}" trem 205 
98 REM srem 85 
99 REM MAIN MOVEMENT LOOP trem 32 
198 K=-(K=6) : I=INT{ (T+1)*RND(9)) trem 228 
1488 REM :rem 125 
189 REM CHECK FOR EDGES zrem 43 


116 IF X(I}<1 OR X{I)>37 THEN GOSUB 320 :rem 253 
126 IF ¥(I)<1l OR Y(I)>22 THEN GOSUB 3246 srem 252 


123 REM rem 122 
124 REM ERASE OLD POSITIONS srem 146 
125 PRINT S$(Y¥(I})TAB(X(I))X$ srem 118 
128 REM :rem 127 
129 REM SET NEW POSITION VALUES srem 155 
138 X(1)=X(2)+xXD(1I) s¥(1)=¥(1)+YD(1) :rem 213 
138 REM zrem 128 
139 REM PRINT AT NEW POSITIONS srem 85 
148 PRINT S$(¥(I))TAB(X(1I))AS{I) srem 246 
148 REM s:rem 129 
149 REM ANIMATE BY SWITCHING SETS srem 11 
158 POKE 53272,CB{K) , srem 21 
168 GoTo 109 srem 97 
199 GOTO 186 srem 106 
298 REM srem 135 
299 REM REBOUND FROM SIDE srem 240 
360 XD{(I}=-XD(I) trem 105 
363 REM srem 122 
364 REM SET REBOUND DIRECTION zrem 23 
3905 IF(Y(I)>@)AND({Y¥(1)<38) THEN ON YD{1)+2 GOSUB 9 
99,989,978:YD(I)=R zrem 178 

318 RETURN srem 116 
318 REM srem 128 
319 REM REBOUND FROM TOP OR BOTTOM zrem 45 
326 YD(1I)=-YD{(I) srem 199 
323 REM srem 124 
324 REM SET REBOUND DIRECTION trem 25 
325 IF(X(1)>@)AND(X(I}<23} THEN ON XD(1I}+2 GOSUB 9 
90,988,978:XD(I)=R trem 176 
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338. RETURN srem 118 
938 REM :rem 136 
939 REM SET RANDOM CHARACTER VALUES :rem 147 
949 R=INT(RND(9)*3) sRETURN zrem 77 
948 REM trem 137 
949 REM SET RANDOM STARTING POSITIONS rrem 187 
959 R=1+INT(RND(9)*36) : RETURN zrem 224 
969 R=1+INT(RND(9)*21):RETURN srem 219 
968 REM rem 139 
969 REM RANDOMIZE REBOUND DIRECTION trem 229 
978 R=INT(2*RND(9)): RETURN rrem 79 
980 R=INT(2*RND(9)):IF R=@ THEN R=-1 trem 218 
985 RETURN trem 134 
990 R=-INT( 2*RND(9))}:RETURN :rem 126 
1898 REM srem 182 
1899 REM SET UP CURSOR POSITIONS em 238 
1186 s$(9)="{HOME}":POR I=1 TO 23: s$(z)=s${r-1)+" 

{DOWN} “: NEXT: RETURN :rem 56 
1998 REM srem 191 
1999 REM DATA FOR CHARACTER SET 1 srem 187 
2604 DATA @,66,60,6%,60,69,66,08 :rem 224 
201G DATA 24,24,36,36,66,66,129,129 :rem 191 
2620 DATA 0,12,18,34,68,72,48,@8 srem 232 
2998 REM trem 192 
2999 REM DATA FOR CHARACTER SET 2 rrem 189 
3080 DATA @,60,126,126,126,126,69,0 srem 161 
3018 DATA 24,24, 24, 24,36, 36, 36,36 rrem 78 
3829 DATA G,48,72,68,34,18,12,8 srem 233 
Moving the Entire Screen 


There is still another technique that is used in games like 
Scramble, Cobra, Defender, and Zaxxon—the scrolling screen. 
The player-figure is a craft of some kind—a rocket, a heli- 
copter—and it seems to be moving over a landscape of obsta- 
cles and enemies. Actually, the player-figure has only limited 
movement, if any. Often the player-figure stays in one place, 
but seems to be moving because the screen display “moves” 
behind it. 

This technique is called scrolling. It’s as if you were filming 
an old-time western, with the hero sitting on a mechanical 
horse while a long painting is unrolled at one end and wound 
up at the other, so that he seems to be passing by the rocks and 
trees and mountains. To the observer, limited by what can be 
seen on the screen, it’s impossibie to tell which is moving, the 
hero or the background. 

Screen movement is programmed on the 64 exactly the 
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way that a character is moved—the old display is replaced by a 
new display that is only slightly different from the old one. 
However, the number of bytes involved—1000 every time you 
scroll—is far too many to handle screen scrolling in BASIC. 
Remember how long it takes to copy 64 characters from the 
ROM set into another area of memory? Now imagine going 
through that long a delay each time the screen scrolls. 
Scrolling—especially fine scrolling—requires machine 
language to be effective on the 64. 

With one exception. There is a built-in machine language 
scrolling routine. It works only in one direction, but it is very 
fast. That is the built-in scrolling feature when you try to doa 
CURSOR DOWN on the bottom line of the screen. The whole 
display jumps up one row. Instantly. Once again, using PRINT, 
you can get machine language speed in your BASIC program. 

Program 5-12 combines animation with scrolling and char- 
acter movement to give us the basis of a scrolling space game. 
The program is based on the random starfield generating 
program from Chapter 3, but now it uses custom characters for 
the large and small stars. By flipping character sets, it makes 
the small stars twinkle and the large stars pulsate. There is also 
a starship that has animated exhaust coming out of it, anda 
space station that spins rapidly. 

BASIC scrolling. At the beginning of the main loop, the 
program checks for the value of TI$, the built-in timer feature 
of 64 BASIC. If enough time has passed since the last time the 
screen scrolled, the program jumps to a scrolling routine at 
line 600. 

The actual scrolling is easy. The variable M$ contains 
exactly enough CURSOR DOWN characters to scroll the screen 
one line. Just PRINT M$, and the whole screen moves up a 
line. 

The problem is that the top line of stars now disappears, 
and the bottom row of the screen is blank. We have to have a 
way of putting random star patterns on that new line at the 
bottom, so that the starfield doesn’t empty out. 

New random lines. If we generated a new line of stars by 
doing 40 RND functions, one for every character position on 
the line, we would lose all the speed of scrolling—we’d have a 
long delay waiting for the new line to fill up. 

There is a way around it, however. At lines 400-420, - 
during the program setup, we created the string T$. T$ 
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consists of the maximum number of characters possible in a 64 
string—255 of them. They are randomly generated, with more 
blanks likely than stars, and more small stars than large stars, 
just like the starfield. 

Now when the screen scrolls, we'll PRINT a 40-character 
section of that long randomly generated string, And we'll 
make each new line different by randomly selecting the starting 
point of the section we'll PRINT. That means we only generate 
one random number each time the screen scrolls, and then 
PRINT using a MID$ section starting at the position of the 
random number we generated. The random number has to be 
at least 1 and no larger than the length of the string minus 40. 

Increasing difficulty. For the first time, we can start 
building difficulty levels into a game program. At first, the 
interval between scrolls is long, but we can decrease it a tiny 
bit each time we scroll, until the new lines are appearing quite 
rapidly. This will make the game harder and harder. 

Also, we can make it so that at higher levels, the screen 
will scroll more than one line at a time. All we have to do is 
PRINT an 80-character section of the string instead of a 40- 
character section. Now two lines will jump up. This program 
includes both features. It will seem to be moving slowly when 
it starts, but if you watch patiently you'll see it pick up speed 
until it flies along. As each new difficulty level comes, the star- 
ship will change colors. Also, every now and then a space 
station will be POKEd onto the screen at a random position in 
the new line. : 

“Moving” a stationary figure. The starship on the screen 
actually does not move, but we still have to provide a move- 
ment routine for it. Why? Because when the screen scrolls, the 
starship character will scroll with it. If we were using a sprite, 
of course, it would not happen—but we aren’t using sprites 
yet. So each time the screen scrolls, the starship character is 
erased (replaced by whatever was under it), the screen is 
scrolled, and the starship is POKEd back into its old location. 
Color memory also has to be erased and POKEd. Even though 
the starship is still at exactly the same position in memory, it 
seems to be moving through the stars. 

Reconfigured video memory. This program relocates 
video memory, putting the new video block at 32768. This is 
the same 16K section of RAM where BASIC itself sits, using the 
upper 8K. So two character sets and screen memory will both 
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be located in the lower 8K of the new video block. 

You'll notice the difference at once, because a strange 
group of odd-looking characters will appear on the screen as 
soon as you RUN the program. They look odd because the 
VIC-II is now looking for character memory in a different 
block, and the character set isn’t there. Later, just before the 
new screen display is created, they'll turn to garbage again. 

The only problem with this comes at the end of the 
program. If you stop the program with RUN/STOP-RESTORE, 
you'll think your computer has gone crazy. You'll type, but 
instead of the letters you typed, you'll see completely unre- 
lated characters—or no characters at all. This is because even 
though RUN/STOP-RESTORE sets the video block back to 
normal, it doesn’t tell BASIC where screen memory is. BASIC 
is still looking up around 32768 for screen memory, though of 
course it has no trouble finding color memory, which never 
moved. 

To get things back to normal, type SHIFT-CLEAR. Then 
type POKE 648,4. You won't be able to see the letters you type, 
but BASIC will see them and act accordingly. This tells BASIC 
to find screen memory back at 1024. 

This program will be expanded into a complete game in 
Chapter 9, called “Mission: Nova!,” with the starship under the 
player's control. The objective will be to collide with the large 
stars while avoiding the small ones. Still later, we’ll add sound, 
introductions, and farewells. It will be one of our first playable 
games. 


Program 5-12. Flickering Stars 


Remember, do not type the checksum number at the end of each line. For example, do 
not type :rem 123. Please read Appendix J, “Automatic Proofreader,’ before entering 
this program. 


18 DIM CC(1),CH(1),cB{1) srem 175 
17 REM srem 76 
18 REM SET VALUES FOR MEMORY VARIABLES srem 98 
19 REM trem 78 
28 cc(@)=12:CC(1)=14:VB=32768 : VM=VB/256 :SB=128:SCc= 
SB* 256 ;CM=55296 :rem 166 

3@ FOR I=@ TO 1:CH(1I)=1824*cC(1)+VB:CB(1)=CCc(1)+16 
*(SB-VM) sNEXT trem 229 

37 REM srem 78 
38 REM SET VIDEO, SCREEN, & CHAR BLOCKS :rem 204 
39 REM zrem 88 
49 POKE 648,SB:POKE 56578,PEEK({56578)OR 3:POKE5657 
6, (PEEK(56576)AND252)OR 1 zrem 167 
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58 PRINT "{CLR}JUST A MOMENT, PLEASE..." 
rem 144 
57 REM srem 8@ 
58 REM INITIALIZE SCREEN, CHAR SET srem 57 
59 REM srem 82 
62 GOSUB 1188:GOSUB 406:GOSUB 50d srem 69 
67 REM :rem 81 
68 REM INITIALIZE DISPLAY VARIABLES rrem 243 
69 REM trem 83 
76 FG=31:0C=1 :NC=2:9=3:0Q=0+1:GOSUB 868 :rem 28 
89 C=568 sW=38:SS=27:CS=2:TS=0:POKE CM+C,NC:POKE SC 
+C, FG srem 11 
97 REM srem 84 
98 REM MAIN LOOP srem 189 
99 REM rem 86 
108 FOR NC=3 TO 15:X=¢ srem 129 
107 REM :rem 124 
198 REM TIME TO SCROLL THE SCREEN? srem 254 
189 REM :rem 126 
110 IF VAL(TIS)>Q THEN GOSUB 609 trem 234 
117 REM srem 125 
118 REM SWITCH CHAR SETS: ANIMATION trem 135 
119 REM :rem 127 
128 K=-(K=8):POKE 53272,CB(K) srem 16 
127 REM :rem 126 
128 REM END OF MAIN LOOP zrem 74 
129 REM trem 128 
13G FOR I=@ TO 49:NEXT trem 196 
148 IF X<19 THEN 119 srem 218 
158 NEXT NC:END :rem 119 
397 REM trem 135 
398 REM SET UP THE STRING OF NEW STARS srem 221 
399 REM srem 137 
400 TS="":FOR I=8 TO 254:T=32 trem 212 
410 IF INT(RND(9)*7)<1 THEN T=92<IF INT(RND(9)*5)< 
1 THEN T=93 srem 56 
426 TS=TS$+CHR$(T) :NEXT srem 13 
430 MS=CHRS(19):FOR I=8 TO 24:MS=M$+CHRS (17) s=NEXT:?: 
RETURN :rem 178 
497 REM srem 136 
498 REM GENERATE THE STARFIELD srem 83 
499 REM <rem 138 
508 POKE 53281,@8:POKE 53286,9:PRINT “{WHT}{CLR}" 
srem 141 
585 FOR I=CM TO CM+999;:POKE I,1:NEXT trem 40 
516 Q=190*RND(9)+20:01=6*RND(9)+2 trem 254 
526 FOR I=08 TO 0:X=1080*RND(9):N=28:GOSUB 546:NEXT 
zrem 75 
538 POR I=@ TO Q1:X=1G0G*RND(9):N=29:GOSUB 548:NEX 
T:RETURN rrem 152 
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549 POKE SC+X,N: RETURN zsrem 117 
597 REM srem 137 
598 REM SCROLL THE SCREEN srem 254 
599 REM trem 139 
60@ POKE SC+C,W:POKE CM+C,0C:T=1+INT(RND(9)*167} 

srem 16 
605 PRINT M$;MID$(TS,T, 48* INT(QQ-Q)-1); : P=P-INT(7* 
Q):GOSUB 882 :rem 78 
607 REM srem 129 
668 REM SAVE CHARACTER BEFORE SCROLL srem 192 
669 REM srem 131 
61% W=PEEK(SsC+C) rem 165 
617 REM rrem 1398 
618 REM PUT SPACESHIP IN SAME LOCATION rrem 50 
619 REM srem 132 
629 POKE SC+C,FG:POKE CM+tC,NC :rem 168 
627 REM srem 131 
628 REM TIME FOR A SPACE STATION? srem 168 
629 REM rrem 133 
630 TS=TS+l:IF TS?16*(QQ-Q)THEN GOSUB 8528 :rem 118 
648 X=X+l1 srem 227 
690 RETURN srem 127 
797 REM srem 139 
798 REM RESET THE TIMER :rem 113 
799 REM trem 141 
888 TIS="G806G6" :Q=99*(Q/180}:RETURN srem 218 
847 REM srem 135 
848 REM PUT ON A SPACE STATION :rem 237 
849 REM :rem 137 
858 TS=8:T2=1001-INT(RND({9)*40):POKE SC+T2,SS:POKE 
CM+T2,CS: RETURN :rem 221 
1897 REM :rem 181 
1898 REM COPY ROM CHARACTER SET rrem 88 
1699 REM srem 183 
1186 POKE 56334,PEEK(56334)AND 254:POKE 1,PEEK(1)A 
ND 251:POKE 657,98 zsrem 74 
1187 REM srem 173 
1108 REM COPY FIRST 64 CHARACTERS TWICE srem 55 
1189 REM :rem 175 
1118 POR I=@ TO 1:RM=53248-CH(I) srem 162 
1126 POR J=CH{I) TO CH{I}+511:POKE J,PEEK(J+RM) :NE 
XT:NEXT srem 69 
1127 REM zrem 175 
1128 REM PUT CUSTOM CHARACTERS IN PLACE srem 96 
1129 REM srem 177 

1136 FOR I=8 TO 1:FOR J=27 TO 31:FOR K=8 TO 7 
:rem 1 

1146 READ N:POKE CH(1)+8*J+K,N:NEXT:NEXT:NEXT 
srem 248 
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1158 POKE 1,PEEK(1)OR 4:POKE 56334, PEEK(56334)0R 1 
trem 182 
1169 POKE 53272,CB(9) :RETURN zrem 70 
1297 REM srem 183 
1298 REM DATA FOR CUSTOM CHARACTERS srem 116 
1299 REM :rem 185 
1308 DATA 24,12,14,12,48,112,48, 24 srem 117 
1318 DATA 9,8,48,16,489,8,9,G trem 59 
1328 DATA @,60,126,126,126,126,68,90 zrem 164 
1339 DATA @,32,116,249,159,46,4,6 trem 78 
1348 DATA 211,137,153, 255,153, 24, 24,36 srem 72 
1358 DATA 8,32,112,241,143,14,4,0 srem 56 
1368 DATA 9,@,16,49,16,9,9,8 :rem 58 
1370 DATA @,66,69,69,609,68,66,9 trem 233 
1388 DATA 9,32,112,241,143,14,4,¢2 trem 59 
1399 DATA 203,145,153,255,153, 24, 24,36 srem 77 
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Made for Games 

One of the Commodore 64's most powerful game-designing 
tools is its sprite animation abilities. These sprites, also called 
MOBs (for Movable Object Blocks), are in effect graphics 
blocks which you can sculpt into any shape and move about 
the screen. They move independently of the main screen 
image, move quite smoothly, and if only a few are on the 
screen at once, move quickly enough for an arcade-style game, 
even though only BASIC is used. 

Sprites can save a lot of programming because they are 
movable blocks. To create a custom character of the same size, 
move it from one location to another, and move it smoothly, 
would take much longer in terms of program length. Each pixel 
would need a location in memory, and each of these pixels 
would have to change its memory location each time the char- 
acter moved. A sprite can do all this with much less effort on 
your part. 

Because sprites are projected independently of any char- 
acters already on the screen, you can create the illusion of three 
dimensions in your game, Using standard or custom charac- 
ters, you have to redraw any figure that is passed over by 
another character. But sprites do not erase the other characters 
when they move past them, so three-dimensional movement 
can be simulated by moving a sprite in front of, or behind, 
another figure. 

The computer also handles collisions between sprites, or 
between a sprite and another character. This collision detection 
is a powerful tool in its own right, and will be handled in 
Chapter 9. Sprites can also be displayed in color, or even in 
multicolored mode. 

You'll have eight sprites to work with on the 64, which 
should be enough for almost any game you want to design. 
Many times, however, you'll not use all eight, for as you 
increase the number of sprites on the screen, movement slows 
down. This is one of the drawbacks of sprite use. It is not 
something at fault with the sprites, but with BASIC, Often- 
times, game programmers use machine language routines to 
move sprites. Chapter 7 includes some excellent machine 
language subroutines to move your sprites more rapidly. 
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Drawing Sprites 

Drawing a sprite is much like drawing a custom character—it 
must be drawn in memory. The difference is that a sprite is a 
much larger character, consisting of a block 24 pixels wide by 
21 pixels high. Each sprite occupies 63 bytes of memory (24 
bits * 21 bits = 504 bits/8 bits per byte = 63 bytes) and uses a 
64-byte block. 

There are utility programs available which can help you 
draw sprites. They handle the more tedious tasks of creating 
sprites, for they allow you to draw a sprite and then count the 
values for the DATA statements you'll need to display them. 
One such utility, “Commodore 64 Sprite Editor,” appeared in 
the December 1982 issue of COMPUTE!. Sprite editors will make 
it easier to design these characters, but you can do the same 
thing using Figure 6-1, a Sprite Design Worksheet. 


Notice that the worksheet shows the entire sprite area, 24 
columns wide by 21 rows high. The 24 columns have been 
divided into 3 sections of 8 columns each. Just as in creating 
custom characters, each memory location is made up of 8 bits. 
Each group of 8 columns on the worksheet, then, corresponds 
to one memory location used when creating a sprite. For 
instance, columns 0 through 7 of the first row will be repre- 
sented by one memory location in the 64. Again, just as with 
custom characters, you'll need to figure out the value of each of 
these groups of 8 bits by adding the values of each on bit. Bit 
values have been included on the worksheet, near the top, to 
make this computation easier. 

A completed sprite will have 63 bit values, since there are 
21 rows with 3 memory locations in each row (21*3 = 63). As 
with custom characters, the sprite is drawn using a READ 
statement which looks to several DATA statements in the 
program. Computing the numbers for the DATA statements 
and placing them in the correct order are essential for drawing 
the sprite. 

Let's go ahead and draw a sprite. Using the Sprite Design 
Worksheet, simply sketch the outline of your sprite, filling in 
the blocks that you want to be on. It could look something like 
Figure 6-2. 
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The blocks that are filled in are the pixels that will be on when 
the sprite is displayed. As when creating custom characters, a 
1 in a particular bit becomes an on pixel in the sprite. A 0 
becomes an off pixel by displaying it in the background color. 
To show some pixels on and others off, you simply add the bit 
values at the top of the Worksheet, counting only those bits 
which show pixels on. Take a look at Figure 6-3, which is the 
same sprite with its bit values calculated. 

The first four rows in this sprite have none of their bits 
turned on. The bit values for all 12 bytes in the first 4 rows are 
thus 0. Row 4 is the first row which shows any pixels on. In 
this row, the first group of 8 bits has none om, so its value is 0. 
The second group has 6 bits on, bits 1 through 6. Adding the 
bit values gives you a total of 126 (64 + 32 + 16 + 8 + 2). The 
third group of 8 bits in row 4 has no bits on, and so has a value 
of 0. 

Each of the bytes in the sprite is calculated like this; 
remember that each row consists of three bytes, and that each 
byte must be figured separately. The worksheet makes this 
easier, since you can calculate each byte’s value and then enter 
it at the right in the appropriate group total column. 

Go through your own sprite design and compute the bit 
values of each of the bytes. Make sure that the 0 values are 
entered where all bits are off, and that each row’s bytes are in 
the correct order. This is important, for when you create the 
DATA statements, your sprite will not appear as expected if 
the numbers are not in the right order. 

When you've finished, you should have 63 numbers for 
each sprite, the numbers starting with the top-left corner of the 
sprite design and moving across each row, then to the leftmost 
byte of the row below. The last number represents the byte in 
the bottom-right corner. These numbers will be placed in 
DATA statements within your program so that the computer 
can READ them and then display the sprite on the screen. 

The sprite we've drawn, for example, would have these 
DATA statements: 

DATA 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 126, 0, 0, 255, 0, 1, 255, 
128 

DATA 3, 255, 192, 3, 255, 192, 3, 213, 192, 3, 255, 192, 3, 255, 
192, 1, 255, 128, 0, 255, 0 

DATA 0, 66, 0, 0, 66, 0, 0, 231, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 
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These DATA statements can be anywhere in the program, 
just as DATA statements needed to create custom characters. 
Many programmers place them at the end of the program, 
where they are out of the way, so that they are not altered 
unintentionally. 

Each sprite that you design for your game is created this 
way. But once you have the sprite designed, you have to POKE 
other values into the 64 to make it appear. 


Creating Your Sprite 

Sprite memory. Once you have the DATA statements 
organized for your sprite, you have to find a place to store the 
numbers, as well as point the 64 to the correct location so that 
it can find those values. 

The VIC-II chip can access only 16K of the 64’s memory at 
one time, and three things have to be in the same 16K section 
for the computer to work as we want it to, The screen memory, 
the character generator, and the sprite information must all 
appear in the same 16K block of the 64. 

Within a 16K block, we could conceivably place 128 
sprites. You cannot use all 128 positions, of course, for the 
screen memory and character generator take up some of the 
available memory. Depending on the 16K block chosen, other 
locations may be forbidden. For example, the block normally 
chosen by the 64 is the one accessed from 0 to 16383. Much of 
the first 1024 bytes is occupied by a BASIC work area; screen 
memory is normally 1024 to 2023; the character generator 
appears at locations 4096 to 8191; and everything above 2048 
that isn’t used by the character generator is used to store 
your BASIC program. There’s not a lot of room for sprite 
information. 

If you wanted to draw several sprites, you would need to 
do one of two things. First, you could move BASIC so that it 
starts at a higher location. You’ve seen how to do this in 
Chapter 4 when you created custom characters. The second 
way to create additional space is to use a different 16K block, 
one that is not quite so busy with BASIC operations. Keep 
these things in mind as you develop your own sprites, espe- 
cially if you’re planning on using lots of them in your game. 
For the moment, however, we'll stay with the first 16K block. 
It's easiest to work with, and we want to keep things simple. 
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Locating sprite DATA. If you’re using three sprites or less, 
a convenient place to locate the sprite data information is in 
the cassette tape buffer. As long as you're not using the 
cassette tape for memory storage, the locations from 832 to 
1022 can be used for your sprite information. One sprite would 
be placed at locations 832-894, a second sprite at 896-958, and a 
third at locations 960-1022. 

If you're using a cassette tape, however, or planning on 
more than three sprites, you'll have to locate the sprite infor- 
mation at a different address. A popular location among 
programmers, and one suggested by the Commodore 64 
Programmer's Reference Guide, is address 12288. This location is 
high enough in the first 16K block to normally be safe from a 
BASIC program. However, to protect this area from BASIC, 
you may want to POKE the line: 


POKE 52,48:POKE 56,48 


This line, once it’s included in your program, moves the BASIC 
pointer and protects the addresses starting at 12288 from any 
BASIC program. You’re almost ready to locate your sprite 
information. Only a few more things to consider. 

The memory locations which are involved with sprite 
programming run from 53248 to 53294. Each location sets one 
of the VIC-II chip’s registers, making different things happen to 
the computer. Some set sprite color, while others check for 
collisions between sprites. A memory map of the 64 will show 
you each register’s exact description. The Programmer's Reference 
Guide has such a map. 

The first location, 53248, is important when programming 
sprites, for it is a value often used when setting color and 
screen location. You'll use it many times, so it’s a good idea to 
memorize at least this one location concerning sprites. 

POKEing in sprites. POKEing in sprites on the 64 is a 
step-by-step process. Once you have your sprites designed 
and the accompanying DATA statements prepared, you need 
to POKE a series of values into the computer's memory. You'll 
want to do this as quickly and as easily as you can. The 
following table gives you the necessary information you'll 
need to do this for your eight sprites. Although you can 
certainly spend some time to look at this table, you'll probably 
find it more worthwhile to refer to it as you work with your 
own sprite creations. 
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Table 6-1. Sprite POKE Table 


Put in Memory 2045, 

Get Pointers) od ae 197 ny 

Locations for ae sey re — a — 
Sprite Pixel te ae 
(12288-12798) 230 12414 aes 1290 12606 12670 12734 


Furn On Sprite | vean. | | vezna | er 32 vezi. | 64 | V+21, v2.28 | 


Set X ¥V+O.X | V+2,X V+4X | V4GX | V+8X | ¥V+1GX | V412.X eel 
Position (0-255} 

Set X V+i61 | ¥+16,2 | V+164 ( V+16,8 | V+16,16 | V+16,32 | V+16,64 | V+16,128 
Position Right of V+OX | V+t2X | V+4X | V+6X | V+8X | V+10,X | V412,.X% | V+14,x 
Seam (0-255) 


V+414,Y | V+taY | ves | | very | | ves | | very | veas.y | veisy 


Expand Sprite V+29,1 | V429,2 | V4+29,4 | V+298 | V+29,16 | V+29,32 | ¥+29,64 | ¥+29,128 
Horizontally 

Expand Sprite V423,1 | ¥+23,2 | ¥V+23.4 | V+23,8 | V+23,16 | ¥V4+23,32 | ¥+23,64 | V+23,128 
Vertically 


Tum On V¥+26,1 | V+28,2 | V+26.4 | V+28,8 | V+28,16 | ¥+28,32 | V+28,64 | ¥+28,128 
Multicolor Mode 


Set Sprite Priority | V+27,1 | V+27,2 | V427.4 | V427,8 | V+27,16 | V+27,32 | V+27,64 | ¥+27,128 
over Background 


The first step is to actually place your sprite information in 
one of the available memory location areas. As we said before, 
the easiest location in the first 16K block begins at address 
12288. You can place the information for up to 10 sprites in this 
area before you start running into the section reserved for the 
custom character set you developed in Chapter 4. 

To begin locating your sprite information, you could type 
the lines: 


16 PRINT *{CLR}":V=53248 trem 152 

28 POKE 52,48:POKE 56,48 zsrem 252 
3Q@ POR X= TO 62:READ A:POKE 12288+X,AsNEXT 

zrem 136 
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These clear the screen, set BASIC’s pointers and protect the 
memory locations above address 12288 from BASIC, and begin 
READing the DATA for the sprite. Notice that the variable V is 
set as the beginning of the sprite registers. It is simpler to set 
this variable, and use the form V + » to POKE particular values 
into each register, than to memorize each register’s address. 

Now that you have the sprite information beginning at 
location 12288, you have to tell the 64 where that information 
is. Take a look at the Sprite POKE Table. To set the 64’s pointers 
so that it can locate the information for the first sprite (sprite 
0), you have to POKE location 2040 with a value of 192. This 
sets the sprite pointer so that it now looks to location 12288 for 
its data. To do this, you add: 


48 POKE 2949,192 


The next step is to turn on or enable your 0 sprite. As you 
can see from the Sprite POKE Table, this is done by typing in: 


5@ POKE V+21,1 


This allows you to see the sprite on the screen. V + 21 is the 
control register at location 53269 (V =53248: V + 21 =53269). 
You'll notice that all the sprites, from 0 to 7, are turned on with 
the same register. The only difference is the number that is 
POKEd into that location. When you turn on the sprite, make 
sure you're POKEing in the correct value, and not turning on a 
sprite you're not using. 

You can turn on more than one sprite with a single POKE 
statement. If you were using sprites 0, 1, 2, and 3, for instance, 
all you would do is add together the values you POKE in. 
1+2+4+8=15, which is the number you’d POKE into loca- 
tion V + 21. Just as simple is the way you turn off selective 
sprites. If you wanted to turn off sprite 2, for instance, during 
a game, all you would have to do is use: 


POKE V+ 21,11 


The value 1] is simply 15 (the previous total value) — 4 (the 
value POKEd in for sprite 2). This is a common technique used 
when calculating sprite collisions, and we'll look at it more 
closely in the next chapter. 

If you were to RUN the program at this point, even if you 
added the DATA statements for your sprite, you would not be 
able to see the sprite on the screen. That's because the sprite 
would appear in the background color, and because it has no 
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screen location. To set the color, refer to the Sprite POKE Table. 
60 POKE V+39,1 


This POKE statement sets the color of the 0 sprite to white. 
The same values used to change screen color are used to color 
the sprites. Each sprite has its own register address to set color. 
Sprite 6, for example, uses V + 45 as its address when selecting 
color. 

Finally, the sprite’s screen location must be set so that it 
will display. 

Positioning the sprite on the screen. The screen display is 
divided into a grid of X and Y coordinates, just like a graph. 
The X coordinate is the horizontal position, while the Y coordi- 
nate is the vertical position. Take a look at Figure 6-4 for a 
moment. 


Figure 6-4. Screen Display 


POKE V + 16, mand 
x= 64 y = 50 
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To place a sprite on the screen, you'll have to POKE in two 
settings, both the X and Y position. This tells the 64 where to 
position the upper-left corner of the sprite. This is important, 
for since the sprite is 24 pixels across by 21 down, you have to 
make sure it’s positioned correctly. If you place it in the upper- 
left corner of the screen display, for instance, it will run 24 
pixels to the right from there, 21 pixels down for that starting 
location. 

Notice that the screen viewing area is smaller than the 
area of possible sprite location. If you place your sprite at X 

osition 0 and Y position 0, it will not appear on the screen. 
The first location that the sprite will show on the screen is X 
position 24, Y position 50. 

To display a particular sprite, you must POKE the X and Y 
settings. Each sprite has its own unique POKEs that must be 
used. Refer to the Sprite POKE Table for these values when 
you set your own sprite locations. 

Setting the X position. The possible values for X are 0 to 
255, counting from left to right. Values from 0 to 23 will place 
all or part of the sprite outside the viewing area, as you can see 
from Figure 6-4. To POKE in the 0 sprite, for example, you 
could use something like: 


78 POKE V+0,189 


which would set the X position of the sprite to somewhere 
close to the middle of the screen. 

X positions beyond the 255th value. Because the viewing 
area of the screen extends beyond the 255th position (and since 
you can POKE in only values up to 255), to place the sprite on 
the right side of this seam you'll have to place an additional 
POKE in your program. Each sprite has its own value that 
must be POKEd into the register V + 16. This gives you 65 addi- 
tional X positions, numbered from 0 to 64. You can POKE in 
values up to 255, but it would place your sprite off the viewing 
area. To set the 0 sprite in the right section of the screen, then, 
you could use something like this: 


7% POKE V+16,1:POKE V+@, 32 
which would locate the sprite’s X position at the midpoint of 
the section on the right side of the seam. 


Setting the Y position. Placing the Y position for a sprite is 
much like placing the X position. A different POKE is used, 
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each unique to a particular sprite, and values from 0 to 255 
(counting from top to bottom) are allowed. Only the values 
from 50 to 229, however, will place the entire sprite in the 
viewing area. Using the 0 sprite again, you could type: 


86 POKE V+1,126 


which would place the sprite about midway down the screen 
viewing area. There is no seam on the Y position. 


The First Sprite 

You’ve designed and created your first sprite. To actually show 
it on the screen, you only need to add the DATA statements 
you made when you designed your sprite. Using the example 
sprite designed earlier, you could enter: 


208 DATA $,6,%,9,0,%,8,6,9,9,0,8,0,126,0,9,255,9,1 
,255,128 

216 DATA 3,255,192,3,255,192,3,213,192,3,255,192,3 
7255,192,1,255,1298,0,255,9 

228 DATA 6,66,80,9,66,8,0,231,9,9,9,0,9,0,0,9,89,9,9 
78,8 


Now you have a short program which should create and 
display a sprite. The complete program below is simply a 
compilation of all the various POKEs necessary to create a 
sprite. 


Program 6-1. Sprite #1 


Remember, do not type the checksum number at the end of each line. For example, do 
not type “:rem 123.” Please read the article about the “Automatic Proofreader” in 
Appendix E. 


12 PRINT" {CLR} ":V=53248 :rem 152 

20 POKE 52,48:POKE 56,48 srem 252 
38 FOR X=@ TO 62:READ A:POKE 12288+X,A:NEXT 

z:rem 136 

420 POKE 294@,192 srem 33 

50 POKE V+21,1 trem 213 

6@ POKE V+39,1 rrem 223 

76 POKE V+0,180 zrem 12 

80 POKE V+1,12¢ trem 8 

200 DATA 80,8,%9,0,8,0,0,9,0,9,0,9,9,126,0,8,255,8,1 

7,255,128 trem 185 

210 DATA 3,255,192,3,255,192,3,213,192,3,255,192,3 

2255,192,1,255,128,6,255,@8 srem 146 

226 DATA 0,66,6,6,66,%9,6,231,8,0,0,9,9,9,8,09,89,6,9 

70,8 srem 236 
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Expanding sprites. The VIC-II has the ability to expand a 
sprite in the horizontal direction, in the vertical direction, or in 
both at the same time. This is a feature of sprite creation that 
allows you to create large figures on the screen without having 
to design custom characters, or even without combining two 
sprites. When a sprite is expanded, each dot becomes twice as 
tall or twice as wide. The sprite’s resolution doesn’t increase; it 
simply gets larger. 

As with other sprite POKE commands, each of the eight 
sprites uses its own unique register value. To expand your first 
sprite, sprite 0, for example, you would type the following line 
after you've loaded and run the short sprite creation program. 


POKE V +29, 1 


Because this is in direct mode, the change is only temporary. 
Your sprite is now double its previous width. To change it back 
to its original size, type: 

POKE V + 29, 0 


Changing the vertical size of the sprite is just as easy. 
Simply type: 
POKE V +23, 1 
and the 0 sprite is twice as tall as it was before. To change it 
back, type: 
POKE V + 23, 0 


Both the horizontal and vertical size can be expanded by 
combining the POKEs as: 


POKE V + 29, 1:POKE V + 23, 1 

You can refer to the Sprite POKE Table for the different 
values to POKE into the register for each sprite. Just as in 
turning sprites on or off, each bit of these two registers controls 
a different sprite. Make sure that you use the appropriate 
value for each sprite you're expanding. 

Adding these POKEs to your program is easy. If you want 
to show the sprite doubled both horizontally and vertically, 
add: 

98 POKE V+29,1:POKE V+23,1 

Expanded sprites have many uses in game design. One 
possible application would be to simulate three dimensions by 
making a sprite expand as it moves, making it seem to close in 
on the player. Another use could be sprite animation, for 
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example, showing an explosion expanding, then contracting. 
You'll come up with other ideas for this use of sprites when 
you design your own games. 


Miutticolor Sprites 
Multicolor sprites work much the same as multicolor charac- 
ters. Bits within the sprite drawing are paired, and the combi- 
nation of the on and off bits within each pair determines its 
color. Although designing the sprite may be slightly more diffi- 
cult with multicolor, the effort is well worth it. 

Let's look at this bit-pairing again. With only two bits, 
there are four possible combinations 


Figure 6-5. Bit-Pairing 


Bit Pairs 


Just as with custom characters, this is how the 64 sets 
colors for multicolored sprites. Figure 6-6 shows what each bit- 
pair represents, along with the locations for alterating a sprite’s 
colors. 


Figure 6-6. Sprite Bit-Pairing 


Bit Pairs 
Background POKE 53281,C 
| Multicolor 1 POKE V + 37,C 
i Sprite character color POKE V + (3910 46), C 
Multicolor 2 POKE V + 38,C 
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(A 1 indicates an on bit, while 0 indicates an off bit.) 

Keep in mind as you're designing multicolored sprites 
that these bits set the pixels as the sprite is drawn. Each 
colored dot will consist of two pixels, side by side. You have 
four colors to work with: background color (the present color 
of the screen), sprite character color, Multicolor 1, and Multi- 
color 2. Depending on which bit(s) are on or off in each pair, a 
different color is displayed in the two-pixel wide block. For 
example, look at Figure 6-7, a representation of one eight-pixel 
block of a sprite drawing. 


Figure 6-7. Sprite Combinations 


Bit 128 6 32 16 8 4 2 1 
Value 
Bit 7 6 5 4 3 2 1 0 


Bit Background] Sprite | Multicolor | Multicolor 
Pairs Color Character 1 2 
Color 


Bits 7 and 6 are both set to 0, or blank. This two-pixel 
block will show in the background color. The second block, bits 
5 and 4, are on and off respectively. This pattern will display 
the sprite character color. The third pair, bits 3 and 2, are off 
and on, which gives that two-pixel block the color selected by 
Multicolor 1. Finally, bits 1 and 0 are both on. Multicolor 2 will 
be displayed in this block. 

As you design your multicolored sprite, you need to indi- 
cate which bit-pairs will be displayed in which of the four 
colors. If the first eight-pixel block of your sprite is designed to 
look like Figure 6-7, for instance, you simply add the values of 
all the bits that are to be turned on. 32+4+2+1=39; that’s the 
value you would place in the DATA statement for that first 
eight-pixel block of your sprite. 

Creating an entire multicolored sprite is more complicated 
than figuring the value for only part of one row, of course. 
Designing a multicolored sprite has its own peculiarities, for 
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with dots two-pixels wide, resolution is cut by half. Although 
you can simply turn on the multicolored mode and use an 
existing sprite, sometimes it will be better to redesign the 
entire sprite so that it looks as you want it to. Figure 6-8, the 
Multicolor Sprite Design Worksheet, helps you do this in the 
same way the Sprite Design Worksheet did earlier in this 
chapter. 

The main difference between the two worksheets is that 
the Multicolor Sprite Design Worksheet groups the pixels into 
paired blocks. The bit-pair patterns are also helpful when 
you're designing your own multicolored sprite. Look at Figure 
6-9 for a moment. This shows the sprite designed earlier, now 
set up for multicolor mode. It is slightly different than the orig- 
inal, since bit patterns have to be set to show the various 
colors. The values you would place in a DATA statement are 
different as well, as you can see by comparing these numbers 
with the ones in Figure 6-3. 

Figure 6-10 shows the same sprite in multicolor, in the 
way it would appear on your screen. Notice how the bit-pairs 
create different colors. 

Simply changing the DATA statement numbers will not 
make your sprite display in multicolors, however. 

Turning on the color. To show a sprite in multicolor, you 
first have to turn the mode on. Setting the multicolor mode is 
done by POKEing in a value to register V + 28. Each sprite has 
its own value to POKE to that register. The 0 sprite, for 
instance, would use a value of 1. Adding this line to the 
program you've already typed in would set the sprite to multi- 
colored mode. 


180 POKE V+28,1 


You now have to assign colors to Multicolor 1 and Multi- 
color 2 for your sprite. Before you do that, however, there are 
several things you should know. First of all, all the sprites 
displayed on the screen will share background color, Multi- 
color 1 and Multicolor 2. To make each sprite as different from 
the next as possible, the majority of a sprite’s color should be 
set to the sprite character color. The more each sprite has of its 
own character color, the more different each will seem. 

Another thing to consider is that Multicolor 1 is trans- 
parent to collision detection. If a sprite is composed of only 
Multicolor 1, no collisions will register between that sprite and 
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Bit Pattern Color, Register Controlling Location 
[LT] — - Background or screen color 53281 CH - Muticolor1 V+37 


BE) | sprite color V + (391046) BE — Mukicolor 2 V +38 
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Bit Pattern Color, Register Controlling Location 
CL] — - Background or screen color $3281 ~ Multicolor 1 V +37 
| ml - Sprite color V+ (39 to 46) | | — Multicolor 2 V+ 38 


ee © CCl © COC Ce CCC EC Ce ECC LCG 


ee a oe, A 


s RRR ERR EERE 
5 
t ) 
§ 
= PS B + + 
~ z Z > > 
g 8 
2 : 
3 
EB s 
- BG 
2 g 
o g & — = N 
3 Sh 2s 5 
= 2 g § 
Rg Pad 
wh 
e = I { l I 
© 
s 
o 
: gf el hel 
ca a if 


~ 
4 


Be ee ane ae ae ae ae Tags Tame Dee ee ae eS ee ae? ee ee? ae a? 1 aes a Oe a De 


Sprites 


any other sprite. This can be a handy tool, for by creating back- 
ground colors in Multicolor 1, you can make sure they are not 
detected in a collision. 

You can also create interesting effects using the multicolor 
mode. One example would be a flashing window, or figure’s 
eye. You can do this by changing the color of a block at regular 
intervals. All you have to do is POKE a different number into 
the register that controls one of the sprite colors. 

Assigning colors to Multicolor 1 and 2 is as easy as 
assigning colors to the sprite’s character color or to the screen 
background color. You use the same numbers as values to 
POKE in colors to the multicolor mode as you do for all other 
colors. To set Multicolor 1 to white and Multicolor 2 to yellow 
for our sample sprite, all you do is type: 


11@ POKE V+37,1:POKE V+38,7 


You can change the values POKEd in to create other colors. 
The following program creates a multicolored sprite, 

using the same steps we’ve already described. Notice that the 
DATA statements in lines 200-220 use the numbers from the 
newly created multicolored sprite. There are also two short 
delays, in lines 120 and 140, followed by color changes, to 
show you how to turn colors on and off. 


Program 6-2, Multicolored Sprite 


' Remember, do not type the checksum number at the end of each line. For example, do 


not type “:rem 123.” Please read the article about the “Automatic Proofreader” in 
Appendix E. 


18 PRINT" {CLR} "sV=53248 srem 152 
28 POKE 52,48:POKE 56,48 srem 252 
38 FOR X=@ TO 62:READ A:POKE 12288+X,A:NEXT 
:rem 136 
40 POKE 2048,192 srem 33 
5@ POKE V+21,1 trem 213 
68 POKE V+39,1 zrem 223 
72 POKE V+8,188 srem 12 
89 POKE V+1,128 srem 8 
98 POKE V+23,1:POKE V+29,1 srem 141 
180 POKE V+28,1 srem § 
118 POKE V+37,1:POKEV+38,7 srem 193 
126 FOR T=08 TO 580:NEXT trem 236 
138 POKE V+39,2 :rem 14 
148 FOR T= TO 586:NEXT srem 238 
156 POKE V+39,4 srem 18 
157 


GEES Sprites 

169 GOTO 126 :rem 99 

268 DATA 8,9,0,8,9,09,0,9,0,8,255,0,3,178,192,14,17 
8,176,14,178,176 trem 191 

218 DATA 14,170,176,14,182,176,14,170,176,14,170,1 
76,14,178,176,3,1798,192,8,255 trem 38 

220 DATA 8,6,65,6,8,65,8,1,85,64,98,0,9,8,0,6,9,9,@8 
,9,9,8 :rem 88 


By changing the numbers in the DATA statements, you can 
create your own multicolored sprites. Here are two more mullti- 
colored sprites you can try. All you need to do is replace the 
numbers in the program’s DATA statements with these values. 


Robot 
DATA 0, 0, 0, 0, 0, 0, 0, 0, 0 
DATA 0, 0, 0, 0, 168, 0, 0, 100, 
DATA 0, 152, 8, 0, 168, 32, 0, 32, 128 
DATA 10, 170, 128, 34, 1 

DATA 34, 186, 0, 130, 17) 


DATA 42, 170, 170, 234, 1 
DATA 0, 168, 2, 0, 168, 1 
DATA 0, 168, 0, 0, 168, 0, 
DATA 0, 144, 0, 0, 128, 0, 0, 0, 0 


One of the interesting things you can do with sprites is 
change their colors. There are other ways besides the FOR- 
NEXT loop method to make changes like this, however. You 
could insert lines similar to these in the main loop of your 
program, so that every 15 times through the loop, colors of 
your sprites change: 


C=C+1:IF C=15 THEN POKE V + 39,1 
IF C=30 THEN POKE V + 39,7:C =0 


Counter variables such as this can be set for many purposes, to 
change from one thing te another, or to turn registers on and 
off. 
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‘Examples of sprites are sometimes hard to find. For the begin- 


ning programmer, the first step of creating a sprite is often- 
times the hardest. To help in creating and designing your own, 
the program which follows displays nine sprites for you to 
look at. You can use them in your own game, or modify them if 
you wish. 

The program shows each sprite moving from the bottom 
of the screen to the top. As each moves upward, it passes in 
front of the graphic display near the bottom and behind the 
screen title. Although these movements are covered more 
completely in the next chapter, you can get an idea of their 
effects in this program. 

Each sprite’s color is set randomly. Sprite 206 is the only 
one in multicolor mode. As you can see when you run the 
program, some of the color combinations look better than 
others. You can experiment even more by changing the screen 
background color to something other than black. 

Take a look at the sprite patterns before you type the 
program in. The DATA statements are set to display these 
sprites, but you could change the numbers to show a modified 
picture. 


Figure 6-11. Space Fighier 
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Figure 6-12. Alien Lander 
Figure 6-13. Rocket 
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Figure 6-14. Wooden Block 
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Figure 6-17. Alien Saucer in Multicolor 


Figure 6-16. Enterprise 
BREE 
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Figure 6-18. Alien Face 
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Type in and run the program to see these nine sprites on 
the screen. An explanation of the program follows. 


Program 6-3. Sprite Parade 

Remember, do not type the checksum number at the end of each line. For example, do 
not type “:rem 123.” Please read the article about the “Automatic Proofreader” in 
Appendix E. 


5 GOSUB 309 srem 72 
19 V=53248:S=296:PRINT“ {CLR} {WHT}":POKE 53281,0:Y= 
255 srem 45 
20 PRINT" {4 DOWN} {WwHT}(7 SPACES}*** SPRITES ON PAR 
ADE ***" erem 236 
38 PRINT"{1@ DOWN}E6IK49 £3"; srem 242 
4B PRIND 4EEEEEEEETEFEEEEEEEEFEEEEEEEEEEE EEE EET EH 
; rem 168 
5@ PRINT"£49 +3" srem 38 
6@ POKE V,16@:POKE V+1,¥:POKE V+21,1 :rem 248 
78 POKE V+29,1:POKE V+23,1 srem 139 
88 POKE V+39,18:POKE V+37,3:POKE V+38,7 srem 124 
98 POKE 2049,5 trem 221 
100 R=INT(RND(1)*15)+1 zrem 174 
1106 Y=Y~2:IF Y<O THEN S=S+1:Y=255:POKE V+39,R:POKE 
V+27,9 srem 234 
128 IF S=289 THEN S=202 srem 158 
136 IF S=206 THEN POKE V+28,1 trem 241 
146 IP ¥<12@ THEN POKE V+27,1 :rem 241 
150 IF S=207 THEN POKE V+28,9 :rem 243 
160 POKE V+1,Y:GOTO 92 :rem 217 
390 FOR X=0 TO 8 srem 26 
31@ FOR S= @ TO 63:READ A:POKE 12800+(64*X)+S,A:NE 
XT:NEXT X trem 223 
328 RETURN zrem. 117 
999 REM SPRITE # 200 SPACE FIGHTER srem 144 
1908 DATAG,2,9,0,9,9.6,0,0,6,9,0,6,0,8,255,128,8,1 
12,9,8,120,9,8 :rem 237 
1918 DATA 124,9,6,126,9,8,127,9,8,255, 255,192,192, 
@, 246,255, 255, 255, 255 :rem 132 
1628 DATA 248,9,9,9,0,0,89,9,0,9,9,6,8,9,9,0,0,9,8, 
8, srem 171 
1849 REM SPRITE #281 ALIEN. LANDER srem 94 
1956 DATA 8,9,0,9,89,9,0,9,8,8,0,0,6,16,8,0,16,9,0, 
16,0,9,16,8,8 :rem 148 
196@ DATA 56,%,6,124,8,8,179,0,1,85,9,1,255,8,1,25 
5,9,8,178,9,1,41,0 srem 185 

1978 DATA 2,49,128,9,0,9,9,9,0,9,8,39,9,9,8,8 
trem 23 
1899 REM SPRITE # 242 ROCKET SHIP trem 65 
1192 DATA @8,16,08,8,16,9,8,16,0,9,48,¢ zrem 217 
111@ DATA 6,40,0,9,49,9,9,68,8,9,68,0 zrem 229 
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Sprites 
DATA %,68,0,0,68,9,08,68,8,8,68,0 :rem 259 
DATA %,68,0,8,68,9,06,198,9,1,69,8,2,68,128,4, 
68,64,8,68, 32,31 srem 159 
DATA 255, 249,0,56,9,9 srem 233 
REM SPRITE # 283 WOODEN BLOCK zrem 121 
DATA 9,9,9,0,9,08,0,0,0,9,0,8,8,255,248,1,126, 
24,2,1308,48,5,252 :rem 123 
DATA 72,18,4,168,23,249,72,63, 254,136, 32,1398, 
168,33,66, 288, 34,34 trem 72 
DATA 160,39, 242,64, 49,10,128,48,11,9,63, 254,82 
79,8,0,9,8,9,0,9,0,08 trem 26 
REM SPRITE # 204 SPACE DESTROYER srem 117 


DATA 9,126,0,3,195,192,7,255,224,1 :rem 188 
DATA 195,128,6,126,9,128,69,1,128,60,1,128, 60 


71,129, 255,129, 255,129 srem 283 
DATA 255,185, 255,157,143,195, 241,128,126,1,12 
8, 36,1,8,24,0,08,24 :rem 2 
DATA @,8,24,16,8, 24,16,8, 24,16,15,255, 248,9,2 
31,144,¢ trem 15 
REM SPRITE # 265 USS ENTERPRISE :rem 65 
DATA 6,9,8,8,0,9,0,9,9,0,9,9,0,0,9,0,9,0,8,8, 
@,255,248,9,64 srem 198 
DATA 16,8,127,224,8,12,0,9,6,3,248,3,15,254,1 
2131,8,0,198,8,8,198 trem 55 
DATA @,15,255,6,31,254,0,89,6,6,0,9,0,0,9,3,@ 
trem 21 
REM SPRITE # 286 SAUCER ALIEN trem 119 
DATA 6,9,9,9,9,9,0,9,9,0,0,0,0,0,9,0,29,0,8,1 
78,%,2,178,128 trem 193 
DATA 9,150,96,176,178,178,198,85,160,2,178,128 
+O, 178,28, 2,8, 128,8,0 :rem 8G 
DATA 32,42,8,168,0,9,8,0,0,0,0,0,9,0,9,0,8,0, 
@,8 srem 198 
REM SPRITE # 287 ALIEN VISAGE rem 112 
DATA 0,8,90,0,28,0,8,127,8,1,255,192,67, 255,22 
5§,162,127,51,119,62 srem 36 
DATA 119,127, 28,127,127,8,127,127, 247,255,127 
+ 247,255,127, 247,255,127 srem 92 
DATA 255,255,111,8,123, 76,255,177,7, 255, 248, 3 
+193,224,1,255,192,08 zrem 116 
DATA 127,0,8,28,9,9,9,9,8 trem 154 
REM SPRITE # 208 SPACE FORTRESS trem 59 
DATA 0,9,0,9,16,0,9,56,0,8,16,8,15, 255, 224,8, 
46,0,1,255,0,7,255 :rem 199 
DATA 192,6,138,8,63,255, 248, 31,255, 240,1,1,8, 
3,255,128,1, 255,86 srem 186 
DATA 9,68,9,9,254,8,9,56,0,8,198,9,8,124,9,9, 
49,9,9,16,0,8 trem 188 
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How the Program Works: 


Line 


5 


10 


20 


30-50 


60 


70 


S& 


100 


110 


120 


130 
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Function 


Send the program to the routine at line 300 which 
READs and POKEs the DATA numbers for the 
nine sprites. 

Set the variables V, S, and Y and the screen back- 
ground color to black. 


Print the screen title in white. 


Print three lines of graphics characters for the 
sprites to pass in front of as they move on the 
screen. 


POKE in the X and Y coordinate position of the 
sprite and turn it on. 


Expand the sprite both horizontally and vertically. 
Omitting this line leaves the sprites at normal size. 


Set the color for the sprites. 


Begin the main loop of the program by POKEing 
the sprite pointer to the first sprite, 200. This 
simply tells the 64 where to get its DATA for each 
sprite picture. 

Set the random number for sprite color. Adding 1 
to the INT result eliminates the possibility of gener- 
ating a 0, which would create a black sprite. Since 
the screen background is also black, this would 
make the sprite invisible. 


Move the sprite by subtracting 2 from its Y coordi- 
nate position each time this line is executed. When 
Y=0, the sprite is off the viewing area, and 1 is 
added to S, changing the sprite picture. Y is reset 

to 255, starting the next sprite at the bottom of the 
screen. The V + 27 register is also turned on, then 
off, to force the sprite to first pass in front of, then 
behind the screen characters. (The next chapter 
explains this more fully.) 


Reset the variable S once all sprites have been 
displayed. This repeats the display. 
Turn the multicolor mode on for sprite 206. 
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Sprites 
150 Turn off the multicolor mode once sprite 206 has 
disappeared. 
160 POKE in the new sprite and repeat the main loop. 


1000-1420 DATA statements for the nine sprites. 


Sprites, Sprites, Sprites 
The Commodore 64's sprite-handling ability is an excellent tool 
for the game designer and programmer. You can design and 
create your own sprites, either in single colors or in a multi- 
color mode. The sprites can be displayed in normal size, or 
expanded. They can even be switched off and on, appearing 
and disappearing, or their colors can change during a game. 
Creating sprites is not the only thing the 64 does, 
however. It also moves them. The next chapter shows you how 
this is done. 
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Moving Sprites 


Character movement on the 64, as detailed in Chapter 5, is 
actually two separate problems: movement and animation. 
Movement is getting the character from one place to another on 
the screen. Animation is making that player seem natural in its 
movements. 

Moving sprites presents much the same problem to a 
game designer. Creating a character that seems to move natu- 
rally is often a challenge, especially to the beginning 
programmer. Fortunately, moving a sprite is much simpler 
than moving a character. This is because the 64 is designed to 
do much of the programmer's work. To move a sprite, all you 
have to do is set the X and Y positions, and then instruct the 
computer to provide a series of new locations. The sprite, 
unlike a character, does not have to be constantly erased and 
rePOKEd into a new location. 

Sprite Priorities 

Sprites have a peculiarity not shared by characters. As they 
move across the screen, sprites have the ability to cross each 
other’s paths, Characters that attempt to do this are erased, 
and must be redrawn. Sprites can even move in front of, or 
behind, other objects on the screen, giving a simulated three- 
dimensional effect. This is especially useful in games. 

Sprites cross other figures on the screen according to a 
procedure that doesn’t change. This is called sprite priority, 
and should be mentioned before you actually begin working 
with sprite movements. 

Lower-numbered sprites will always pass in front of 
higher-numbered sprites. That is, sprite 0 passes in front of all 
other sprites; sprite 6 passes only in front of sprite 7; and so 
on. You can create a window effect by making a sprite with a 
gap in it, then causing another sprite to pass behind it. This 
makes for an impressive three-dimensional effect. 

Sprites can also be set to pass in front of, or behind, other 
characters or background displays. To do this the register 
V +27 is POKEd. Each of the eight sprites must have its own 
bit set, just as when sprites are enabled, or turned on. If a 
particular sprite’s bit is on, that sprite will pass or appear behind 
background or screen characters. If the bit is off (as it normally 
is for all sprites), then it will pass in front of any screen 
characters. 
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To give the screen and background priority over a partic- 
ular sprite, POKE in the appropriate value. Refer to the Sprite 
POKE Table in Chapter 6 for these values. For instance, setting 
the screen priority over sprite 0, you would type in: 


POKE V+ 27, 1 


Just as when you enable any of the one-byte registers for 
sprites, to turn on more than one, you must add the sprites’ 
values together. For example: 


POKE V +27, 129 


will set the background and screen priority over sprites 0 
and 7. 


Computer-Controlled Sprites 

Many times you'll want computer-controlled sprites moving 
on the screen. That's what this chapter will explore; player- 
controlled sprites, either through a joystick or the keyboard, 
will be dealt with in the next chapter. 

Sprites can be used for the same purposes as standard or 
custom characters. They can serve as targets, as opposing 
figures, as objects to avoid, or simply as projectiles. Because 
their movements are so easy to program, you'll probably find 
yourself using them in place of custom characters in many 
instances. 

Moving a sprite becomes a series of commands which 
change the location in as small increments as possible. The 
larger the distance between screen positions, the jerkier the 
movement will seem, so you'll want to change the position one 
pixel at a time if possible. 

We'll consider three kinds of sprite movements that are 
directed by the computer rather than the player. They are: 
simple one-direction movements, random movements, and 
intelligent movements. Each type of sprite movement has its 
own application in a game, so we'll consider them separately. 
Falling Objects 
One of the most popular videogames is Space Invaders. The 
opponents are not intelligent, nor do they move in a random 
pattern. Over and over again, they descend toward the player. 
They are actually little more than falling objects that also move 
across the screen. Astrosmash, an arcade-style game for the 
Mattel Intellivision system, shows this type of movement even 
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Moving Sprites 


better. In that game, asteroids continually fall on your player- 
controlled character. The angle they approach your character 
varies from time to time, but they are basically falling rocks. 

Creating something similar on the 64 is quite simple using 
sprites. We'll begin with this sort of sprite movement because 
it is the easiest to program, and will set a base for the later, 
more complicated movements of sprites. 

You've created your sprite (it doesn’t have to look like a 
falling rock for you to see how to move it), and you're ready to 
see it smoothly move about the screen. You can use the DATA 
information for your own sprite in place of the statements used 
in the program below. All you have to do is insert your DATA 
numbers in lines 200-260. 


Program 7-1. Falling Blocks 


Remember, do not type the checksum number at the end of each line. For example, do 
not type “:rem 123.” Please read the article about the “Automatic Proofreader” in 
Appendix E. 


18 PRINT*{CLR}":POKE 53281,@:V=53248 :X=28:v=28 


rrem 195 
29 POR X=0 TO 62:READ A:POKE 12288+X,A:NEXT 

zrem 135 
36 POKE 2840,192 zsrem 32 
35 POKE V+23,1:POKE V+29,1 srem 14% 
46 POKE V+21,1 zrem 212 
5@ POKE V+39,18 srem 14 
60 POKE V+@,X trem 292 
78 POKE V+1,Y rrem 205 
88 Y=Y+1l:IF Y>255 THEN Y=28 srem 214 
188 GOTO 62 :rem 48 
268 DATA 255,255,255, 255,255,255, 255, 255, 255 

trem 136 
218 DATA 255,255, 255, 255,255, 255, 255, 255, 255 

z:rem 137 
228 DATA 255,255,255, 255, 255, 255, 255, 255, 255 

trem 138 
236 DATA 255,255,255, 255, 255, 255, 255, 255, 255 

srem 139 
24@ DATA 255,255,255, 255,255, 255, 255, 255, 255 

srem 148 
258 DATA 255,255, 255, 255,255, 255, 255, 255, 255 

:rem 141 
2628 DATA 255,255, 255, 255,255, 255, 255, 255, 255 

trem 142 


Much of this program should be familiar to you if you've read 
Chapter 6, for it uses the 0 sprite. The screen color is changed 
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to black, variables are set, and the sprite DATA is read and 
POKEd into the proper locations. The pointer is set in line 30, 
line 40 turns the sprite on, and line 50 sets its color to orange. 

Lines 60 and 70 POKE in the sprite’s X and Y starting posi- 
tions on the screen. Line 80 is really the only line you haven’t 
yet used. All it does is change the sprite’s Y position by one 
pixel each time through the loop. When Y = 255, the lowest 
position on the screen, it is reset to 20, the Y coordinate 
starting place, and the process begins all over again. 

After typing in and running this program, notice how 
smoothly the sprite moves down the screen. This is one of the 
advantages of using sprites, for they move much more 
smoothly than characters. 

If you’d wanted the sprite to make only one pass down 
the screen, you could have changed tine 80 to: 

88 Y=Y+1:IPF Y>255 THEN Y=255 

This would cause the sprite to reach the bottom and remain 
there. Remember that you'll see an ILLEGAL QUANTITY error 
on the screen if you try to POKE a number greater than 255 
into any memory location. 

Moving the sprite in other directions is just as easy. Using 
the loop technique in lines 60-100 in the previous program, 
you can make a sprite go up, down, to either side, or even 
diagonally across the screen. Look at the program below for a 
moment, then type it in to see a sprite move in several direc- 
tions. Again, you can insert your own sprite’s DATA state- 
ments in lines 200-260 as a replacement. 


Program 7-2. Diagonal Movement 
19 PRINT"{CLR}":POKE 53281,@:V=53248:X=56 :Y=30 


trem 199 
20 FOR X=@ TO 62:READ A:POKE 12288+X,A:NEXT 

trem 135 
38 POKE 2046,192 srem 32 
49 POKE V+21,1 srem 212 
58 POKE V+39,10 rrem 14 
6@ POKE V+8,X srem 292 
7@ POKE V+1,Y¥ srem 265 
8G Y=Y¥+1:IF Y=220 THEN 96 :rem 62 
85 GOTO 66 zrem 12 
98 POKE V+@,X:POKE V+1,Y zrem 189 
106 X=X+1l:IF X=255 THEN 116 srem 149 
18S GOTO 90 trem 56 
118 POKE V+8,X:POKE V+1,Y¥ trem 158 
120 Y=Y-1:IF Y=5@ THEN 130 :rem 183 
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125 GOTO 118 rem 99 
13@ POKE V+0,X:POKE V+1,Y srem 152 
146 X=X-1:IFX=58 THEN 150 :rem 144 
145 GoTo 138 trem 183 
15@ POKE V+@,X:POKE V+1,¥ :rem 154 
160 X=X+1:Y=Y+1:IF X=255 THEN PRINT “{CLR}{3 Down} 

{WHT}JALL DONE!" :END :rem 91 
165 GOTO 158 srem 1087 
262 DATA 9,6,0,0,0,9,9,8,0 :rem 188 
218 DATA 8,0,8,0,126,0,9,255,6 :rem 146 
220 DATA 1,255,128,3,255,192,3, 255,192 srem 76 
239 DATA 3,213,192,3,255,192,3,255,192 srem 74 
240 DATA 1,255,128,0,255,0,8,66,08 srem 64 
250 DATA @,66,0,0,231,%,9,98,8 trem 99 
268 DATA @,9,8,46,9,0,0,08,0 rrem 194 


The sprite moves down, to the right, up the screen, left, and 
finally diagonally to the lower-right corner of the viewing area. 
Each of the five loops moves the sprite in one straight-line 
direction. The down movement you've already seen. 

To move a sprite to the right, all you have to do is increase 
its X coordinate position one pixel at a time. The line below 
does that: 


108 X=X+l:IF X=255 THEN 119 
When the X position reaches its maximum, 255, the sprite 
begins the next loop in line 110. 

To move up, you must decrease the sprite’s Y coordinate 
position: 
128 Y=Y-1:IF Y=56 THEN 130 

Moving to the left is done with the line: 
149 X=X-1:IF X=5@ THEN 156 


This decreases the X coordinate by one each time through the 
loop. The sprite will end up in its starting location. 

To move diagonally, you only need to combine the 
increases of both the X and Y coordinates. Line 160 does this: 


16@ X=X+1:Y=Y+1 


When X= 255, the sprite will have moved off the viewing area 
and a message will display. Something similar can be used to 

move the sprite in the other diagonal directions. For instance, 
to move up and to the right, you could type: 


X=X+1:Y=Y-1 
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Moving down and to the left-hand corner can be accom- 
plished with: 


X=X-1:Y=Y+1 
Up and to the left would look like: 
X=X-1:Y=Y-1 


You have eight possible movements with the sprite so far. 
Since it is moving one pixel at a time, the movement is 
smooth. Sprites erase themselves, so there is no need to do 
that in the program, unlike when you're using custom charac- 
ters. However, sprites can move in more than eight directions, 
not just in the eight lines that a character can move. To show 
this, change line 160 in the original program to: 


168 X=X+1sY=¥+.5:IF X=255 THEN PRINT "{CLR} 
{3 DOWN} {WHT}ALL DONEJ":END srem 141 


If you run this version of the program, you'll see the sprite 
moving to the left and down at a different angle than before. 
You can change the angle by simply altering the .5 to values 
such as .3 or .25. 

You can even make the sprite head toward the right of the 
original path by changing line 160 to: 

168 X=X+1:Y=Y+.25;1F X>254 OR Y>254 THEN PRINT " 
{CLR}{3 DOWN} {WHT}ALL DONE!" :END trem 146 


The additional changes in the line are necessary, for if they 
are omitted, you'll see an ILLEGAL QUANTITY error message. 
What happens is that the Y coordinate position becomes 
greater than 255. 


The Invisible Seam on the 64 

As you ran the sample programs moving the sprite from side 
to side, or around the edge of the screen, you probably noticed 
that it did not move all the way to the right-hand side of the 
viewing area. This is because of the seam that separates two 
different sections of the 64’s screen. 

You didn’t have to worry about this seam when you 
created and moved custom characters. Characters will move 
only within the viewing area. Sprites are not bound by this 
rule, however. They are not confined to the 1000 screen loca- 
tions, as are characters, but have a playing area greater than 
what the monitor screen displays at one time. Although this is 
in some ways an advantage when using sprites in a game, it is 
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also a bit more difficult to program. 

Take a look at Figure 7-1. This shows the viewing area of 
your television or monitor screen, along with the X and Y coor- 
dinates where your sprites can be located. 


Figure 7-1. Screen Display 
0 24 255 


POKEV + 16, nand 


Not every coordinate you can place your sprite on will 
appear in the viewing area. If you located a sprite at X = 0: 
Y=0, it would not appear on the screen. The upper-left comer 
of the viewing area is X= 24: Y=50. This is the first location 
which will display all of your unexpanded sprite. The bottom- 
left corner has the same problem. To show a full sprite in its 
entirety, you could only use X=24: Y= 229, If the Y position is 
greater than 229, part or all of the sprite may be cut off. 

The horizontal position of a sprite is even more complex. 
Twice as wide as it is high, the sprite movement area extends 
512 positions horizontally. You'll actually use only a portion of 


177 


BEM Moving Sprites 


these locations, the ones shown in the viewing area, but that 
number is still higher than 255. You'll remember that 255 is the 
highest number you can POKE into a location, and since you 
set and move sprites by doing just that, getting to the far right- 
hand side of the screen is complicated. 


POKEing to Cross the Seam 

The 64 creates, in effect, two screens. One is accessed 
normally, simply by POKEing in the X and Y positions. The 
other, near the right-hand side, is accessed only when an addi- 
tional register is turned on. This register’s address is V + 16, {or 
location 53264), and must have one bit turned on for each of 
the eight sprites that wish to cross the seam which divides the 
64’s screen. You can do this by POKEing V + 16, x, where x 

is the value used to turn a particular sprite on. For example, 
POKEing 

V+16,1:V+0,0 


allows sprite 0 to cross the seam. In effect, the register V + 16 
tells the sprite which of the two screens it is on. (Normally, 
V +16 is set at 0, meaning no bits are turned on, and all sprites 
assume they are on the left side of the seam.) 

The following program shows this movement. There is 
only one sprite, and it moves just once across the screen, but it 
will give you an idea of the methods used to cross the seam. 


Program 7-3. Moving Across the Seam 


Remember, do not type the checksum number at the end of each line. For example, do 
not type “:rem 123.” Please read the article about the “Automatic Proofreader” in 
Appendix E. 


1L@ PRINT’ {CLR}":POKE 53281,0:V=53248:X=26s¥=1208 


trem 244 

28 FOR X=@ TO 62:READ A:POKE 12288+X,A:NEXT 
srem 135 
3@ POKE 2849,192 rrem 32 
48 POKE V+21,1 rem 212 
50 POKE V+39,19 trem 14 
60 POKE V+d,X srem 282 
708 POKE V+1,Y srem 205 
86 X=X+1:IF X>255 THEN POKE V+16,1:X=1 trem 79 
96 IF (PEEK(V+16) AND 1)=] AND X=91 THEN PRINT"MAD 
E IT ACROSS! ":END trem 156 
108 GOTO 69 srem 48 
268 DATA 8,8,9,0,8,8,8,8,0 srem 188 
218 DATA 0,@,8,0,126,9,8,255,6 rrem 146 
228 DATA 1,255,128,3,255,192,3,255,192 rrem 76 
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239 DATA 3,213,192,3,255,192,3, 255,192 :rem 74 
248 DATA 1,255,128,0,255,0,8,66,0 srem 64 
258 DATA @,66,9,0,231,0,9,0,0 srem 99 
269 DATA @,8,0,8,0,9,9,0,@ srem 194 


The only lines that may look unfamiliar are lines 80 and 90. 
Line 80 moves the sprite across the screen. When the X coordi- 
nate equals 255, in other words, when the seam is encoun- 
tered, the V + 16 register is turned on for the 0 sprite. X is reset 
to 0. Line 90 prints a message only when the sprite reaches the 
far right-hand side (X=91) and only when the V + 16 register is 
turned on (PEEK(V + 16) AND 1)=1. If this were omitted, then 
the message would be printed the first time X =91, which 
would have been on the left side of the seam. 

Remember that once the seam is crossed, the X positions 
are renumbered, beginning with 0 again, and run to 88, the 
last X location which shows in the viewing area. If the sprite is 
moving to the left, and crosses the seam, then the V+ 16 
register must be turned off by using: 


POKE V + 16,PEEK(V + 16) AND 254:POKE V + 0,255 


The sprite moves over the seam and is placed at the far right- 
hand side of that part of the screen. Although you could use 
the statement POKE V + 16,0:POKE V + 0,255 instead, it’s good 
programming practice to use the PEEK method, for there will 
be times you'll have more than one sprite on the screen. 

To move the sprite back to the left, you need to add 
another loop, much like you did when you moved the sprite in 
only the left-hand side of the screen. To make the sprite move 
back and forth across the screen, you would add these lines: 


Program 7-4. Back and Forth 


Remember, do not type the checksum number at the end of each line. For example, do 
not type “:rem 123.” Please read the article about the “Automatic Proofreader” in 
Appendix E. 


86 X=X+1L:IF X>255 THEN POKE V+t16,PEEK(V+16)OR 1:X= 


1 srem 78 

98 IF (PEEK(V+16) AND 1)=1 AND X=91 THEN GOTO 1180 
zrem 229 

116 POKE V+@,X:POKE V+l1,Y srem 158 
120 X=X-lL:IF X=@ THEN POKE V+16,PEEK(V+16)AND 254: 
X=255 ¢rem 21 

125 IP (PEEK(V+16)AND 1)=@ AND X=1 THEN GOTO 60 

:rem 174 

136 GOTO 11@ zrem 95 
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Lines 110 and 120 POKE in the sprite’s location and move 
it to the left (X= X—1). When the seam is reached (X= 0), the 
V +16 register is turned off and X is reset to 255, Line 130 tests 
to see if the sprite has reached the X= 1 location on the left side 
of the seam. If it has, the process repeats as the program 
moves back to line 60. 


More Than One Sprite 

Turning one sprite on or off is relatively simple. Once you have 
several sprites on the screen, all of them moving from one side 
of the seam to the other, it can get more difficult. 

To turn on more than one sprite, for instance, you have to 
add together the sprite values when you POKE V + 16,x. If 
both sprites 1 and 3 were crossing the seam, for example, you 
would POKE V + 16,10. But if you wanted to allow only one of 
the sprites to cross the seam, you would use a different type of 
POKE statement. 

If you had a number of sprites on the screen, and wanted 
only sprite 0 to move from the right-hand section to the left- 
hand section, you couldn’t just POKE V + 16,0. This would 
force all the sprites to move to the left-hand side of the seam. 
Instead, you could use: 


POKE V + 16,PEEK(V + 16)AND(255 — 1) 


Change the 1 in (255 —1) to 2, 4, 8, 16, 32, 64, or 128 for the 
other seven sprites. 

This clears only sprite 0's bit, so it will be the only one to 
move to the left of the seam. You can use the logical AND to 
turn off just one sprite, leaving the others on, for any of the 
other sprite functions where all the sprites share a single 
register. 

You would do something similar to move one sprite to the 
right of the seam. In order to keep other sprites which may 
already be in that section of the screen in place, you could use 
the logical OR. 

POKE V + 16,PEEK(V + 16)OR 1 
OR 1 could be replaced by OR 2, 4, 8, 16, 32, 64, or 128, 
depending on the sprite. 

This allows the 0 sprite to move to the right of the seam, 
but does not disturb any of the others. You'll use this method 
of moving sprites from one side of the seam to the other 
constantly. If you’re unfamiliar with the concept of the logical 
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AND and OR, refer to Chapter 4, Custom Characters, where it 
is explained in detail. 


More about the Seam 
To move a sprite completely across the screen and have it reap- 
pear on the left-hand edge can also be complicated. As the 
sprite nears the right edge, you would normally POKE 
V+16,0 to allow it to return to the left-hand section, then 
POKE a new X coordinate to show it in its new location. 

Unfortunately, if you POKE V + 16,0 while X= 91 (just off the 
right side of the visible area), the sprite will appear for a 
moment in the X =91 location on the left side of the seam. If 
you reverse the order of the statement and first set X=0, then 
POKE V + 16,0, the sprite will flash in the X = 0 location on the 
left side of the seam. 

To prevent this, you can turn the sprite off just before this 
process and then turn it back on after both the POKE V + 16,0 
and X=0 have been executed. The program below does this. 


Program 7-5. Smooth Sprite Movement 


Remember, do not type the checksum number at the end of each line. For example, do 
not type “:rem 123.” Please read the article about the “Automatic Proofreader” in 
Appendix E. 


18 PRINT“ {CLR}":sPOKE 53281,9:V=53248:X=56:Y=128 


:rem 247 

28 FOR X=6T0O63:READ A:POKE 12288+X,A:NEXT s:rem 136 
32 POKE 2849,192 trem 32 
49 POKE V+21,1 trem 212 
5@ POKE V+39,4 :rem 225 
6G POKE V+9,X srem 202 
78 POKE V+1,Y trem 285 
88 X=X+2:IF X>255 THEN POKE V+16,PEEK(V+16) OR 1:X 
=) srem 79 

9@ IF (PEEK{V+16) AND1)=1 AND X=91 THEN 120 

:rem 173 

19@ GOTO 6G trem 48 
128 POKE V+21,9:X=@:POKE V+@,X:POKE V+16, PEEK(V+16 
) AND 254:POKE V+21,1:GOTO6% rrem 197 

200 DATA 8,9,0,0,9,08,7,255, 224,15,255, 249, 25, 36,15 
2,31,255, 248,15, 255 rem 27 

218 DATA 248,7,255,224,6,24,6,32,189,4,49,255,148, 
43,255, 212, 36,608, 36,49, 24 trem 87 

222 DATA 29,48, 36,12,32,98,4,%8,189,0,1,126,128,3,9 
,192,8,0,0,9,8,0,36,48, 24 rrem 35 
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The sprite is set up in the way you've already used. Lines 10-70 
draw the sprite and place it on the screen at location 50,120. 
Line 80 moves the sprite to the right, constantly checking for 
the seam. Notice that it moves faster than your previous 
sprites because X= X +2. You can change this to a larger 
number, but the movement will seem jerkier. Once the X posi- 
tion reaches 255, the V + 16 register is turned on and X is reset. 

Line 90 checks to see if the far right-hand side of the 
screen is reached. When it is (X =91), the sprite is turned off 
(V+ 21,0), X is reset, and the program moves to line 120. 

Line 120 POKEs the X location in again, sets the V + 16 
register back to zero to indicate the sprite is on the left side of 
the seam, and then turns the sprite back on. 

Note the use of the logical AND and OR in this program. 
It's a good idea to always use this form, in case there is more 
than one sprite on the screen at a time. 

You can move your sprite almost any direction on the 
screen, even across the troublesome seam on the 64. The 
patterns you’ve used so far, however, are rather predictable. In 
a game, a player would quickly discover that pattern. It might 
not be much of a game. Fortunately, programming sprites to 
make random movements isn’t that difficult. 


The Random Factor 

Computer-controlled sprites that move randomly make for 
more difficult opponents. They can move in different patterns 
each game, or even during each pass across the screen. 

The random generator in the 64 allows you to place and 
move sprites in this less predictable way. Each time a sprite 
moves on the screen, for example, you could have it change its 
altitude (Y position) or its speed (X + 7). You can randomly set 
the number of sprites on the screen, the angle at which they 
move, or when they attack the player-controlled character. 

To create this random effect, you'll use the RND function 
in your program. To produce a random number R between 0 
and 3, for instance, the form would be: 


R=INT(RND(9)*4) 
This is the same form you used to create random screen 
displays in Chapter 3. If you’ve forgotten how to create 


random numbers, refer to the section in that chapter. 
You can create minimums and maximums using the RND 
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function, as well as fractions if you wish. But once you have a 
random number, what can you do with it? 

If you want to vary the speed of a sprite each time the 
main loop is executed, you could add these lines to Program 
7-3. 


Program 7-6. Random Sprites 


Remember, do not type the checksum number at the end of each line. For example, do 
not type “:rem 123.” Please read the articte about the “Automatic Proofreader” in 
Appendix E. 


75 R=INT(RND(9)*4)4+1 trem 95 
882 X=X+R:IF X>255 THEN POKE V+16,PEEK{V+16)OR 1:X= 
1 zrem 111 
908 IF (PEEK(V+1L6) AND 1)=l1 AND X>91 THEN GOTO 118 
rrem 230 
110 POKE V+@,X:POKE V+1,Y srem 15@ 
115 ReINT(RND(9)*4}+12 zrem 138 
120 X=X-R:IF X<@ THEN POKE V+16,PEEK(V+16)AND 254: 
X=255 ; srem 53 
125 IF (PEEK(V+16)AND 1)=@ AND X<4 THEN GOTO 64 
:rem 176 
139 GOTO 112 srem 95 


Lines 75 and 115 create the random numbers ranging from 1 to 
4.X=X+R in line 80 and X=X-—R in line 120 move the sprite 
across the screen at varying speeds. Notice that it was neces- 
sary to change the X=91 to X>91 in line 90 and the X=0 to 
X<0 in line 120. This prevents any ILLEGAL QUANTITY error 
messages. Line 125 includes the value X<4 for the same 
reason. You can’t POKE in negative numbers, remember. 

To show random movement in a different way, take a look 
at the program below. This is a variation of Program 7-3, but 
now it POKEs in the X position of the sprite randomly. The 
sprite appears in different X locations, ranging from 24 to 255, 
but stays on the same Y location “line.” The delay loop is 
necessary to see the sprite’s change of position. In a game, this 
would make the sprite a difficult target. 


Program 7-7. Random Appearances 


Remember, do not type the checksum number at the end of each line. For example, do 

not type “:rem 123,” Please read the article about the “Automatic Proofreader” in 

Appendix E. 

1@ PRINT" {CLR}“:POKE 53281,0:V=53248:X=20:Y=126 
:rem 244 
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28 FOR X=@ TO 62:READ A:POKE 12288+X,A:NEXT 


trem 135 
3@ POKE 2646,192 srem 32 
48 POKE V+21,1 srem 212 
58 POKE V+39,19 trem 14 
55 X=INT(RND(9)*232)+24 srem 251 
68 POKE V+0,X srem 202 
78 POKE V+l1,Y :rem 265 
86 FOR T=8 TO SOB:NEXT T zrem 21 
108 GOTO 55 trem 52 
268 DATA 0,9,0,0,0,8,0,9,8 :rem 188 
218 DATA 9,6,9,6,126,8,8,255,@ srem 146 
228 DATA 1,255,128,3,255,192,3, 255,192 srem 76 
239 DATA 3,213,192,3,255,192,3,255,192 srem 74 
246 DATA 1,255,128,0,255,9,0,66,@ srem 64 
258 DATA @,66,9,0,231,0,0,9,8 trem 99 
268 DATA 0,6,8,9,0,9,0,9,6 srem 194 


Line 55 creates a random number from 24 to 256, the X coordi- 
nate positions in the screen to the left of the seam. The delay in 
line 80 simply slows down the movement so you can see it 
working. 

You can also move the sprite in random directions by 
using the RND function. The sprite will not move quickly in 
the following program, but it will move unpredictably. It’s a 
matter of setting up several IF/THEN statements, each 
executed when a particular number is created by the RND 
function. The sprite creation and design are similar to the other 
sample programs you've already seen in this chapter. Notice 
lines 80-110, which contain the IF/THEN statements. 


Program 7-8. Random Directions 


Remember, do not type the checksum number at the end of each line. For exampte, do 
not type “:rem 123.” Please read the article about the “Automatic Proofreader” in 
Appendix E. 


16 PRINT" {CLR}“:POKE 53291,9:V=53248:X=20:Y=129 


trem 244 
20 FOR X=@ TO 62:READ A:POKE 12288+X,A:NEXT 

rrem 135 
3@ POKE 2040,192 trem 32 
49 POKE V+21,1 trem 212 
58 POKE V+39,12 srem 14 
6@ POKE V+é,xX trem 202 
73 POKE V+1,Y trem 205 
72 FOR T=6 TO 208:NEXT T :rem 19 
75 R=INT(RND(9)*4) srem 3 
89 IF R=6 THEN X=X+5:GOTO 66 :rem 11 
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90 IF R=l THEN X=X-5:GOTO 68 zrem 15 
186 IF R=2 THEN Y=Y+5:GOTO 68 srem 56 
110 IF R=3 THEN Y=¥-5:GOTO 68 srem 66 
284 DATA 8,9,9,9,0,8,8,0,9 :rem 188 
218 DATA 8,6,8,8,126,8,8,255,9 :rem 146 
226 DATA 1,255,128,3,255,192,3,255,192 :rem 76 
230 DATA 3,213,192,3,255,192,3, 255,192 trem 74 
249 DATA 1,255,128,8,255,0,0,66,0 :rem 64 
250 DATA @,66,0,8,231,9,8,8,8 :rem 99 
266 DATA 8,0,8,0,0,6,9,8,6 :rem 194 


A number from 0 to 3 is created in line 75. Depending on the 
number generated, the sprite will move to the right, the left, 
down, or up five pixels. The delay loop in line 72 was added to 
slow down the sprite’s motion. Remove line 72 to see an 
entirely different effect. 

Of course, in a game, you would have to add lines that 
would test to see if the sprite had reached any of the four 
borders of the display area. (If you let this program run long 
enough, eventually you'll see an ILLEGAL QUANTITY error 
message.) 

Randomness in a game can create difficult opponents for 
the player. Sometimes too difficult. Keep in mind that every 
player will be slower than the computer-controlled sprites. You 
can make the game too hard by making the characters too 
unpredictable. Experimenting with your own game design, 
you'll quickly find out that often the best use of any game 
design tool is in moderation. It’s difficult to enjoy a game when 
it feels as if you have no control at all over its course. Most 
players want to feel it was skill, not luck, that allowed them 
to win. 


Intelligent Sprites 
Using simple and random sprite movements, you can create 
opponents that may be difficult, and, at times, impossible for a 
player to beat. Many times this would depend on the sheer 
number of computer-controlled figures. If there is a large 
number, the player is simply overwhelmed. Many arcade 
games use this technique. Defender, for example, eventually 
throws so many opponents at the player’s ship that it’s impos- 
sible to continue. 

At times, however, you'll want something more than over- 
whelming numbers to challenge your game's players. If a 
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player discovers that outguessing the computer-controlled 
characters makes more of a difference than eliminating a seem- 
ingly inexhaustible supply, he or she will play the game longer, 
and with more interest. 

Intelligent sprites are one solution to this problem. 
Programming intelligent sprites is the most difficult way to 
make sprites move, but it is potentially the most rewarding. If 
you can program a sprite to maneuver, even defeat the player, 
you've accomplished a great deal. 

Creating intelligent sprites is a matter of using a number 
of IF/THEN statements in the game program, outlining how 
the sprite reacts to the player-controlled character. When you’re 
using BASIC, however, you'll quickly notice that a program 
slows down as more and more IF/THEN statements are added. 
Again, you must decide if the added intelligence of sprites is 
worth the slowing of a game’s actions. Often you must 
compromise your ideal game, keeping such things as intelli- 
gent sprites to a minimum just to keep the game moving at an 
acceptable speed. 


Homing In 

One of the most popular and useful ways of programming 
intelligent sprites is to create computer-controlled figures that 
home in on the player’s character. Most arcade-style games that 
use intelligent opponents use this technique. After a while in 
Joust, for instance, the enemy knights begin to move toward 
your knight quicker and in a more direct line. You can dupli- 
cate this by programming several sprites. 

To do this, you program the sprite so that it moves on the 
screen, checks to see where the player’s figure is, and then 
moves in that direction. No matter where the player’s character 
is, the sprite moves toward it. The quickness or slowness with 
which the sprite moves determines how hard or easy it will be 
for the player to evade it. 

Look at the program below for a moment, then type it in 
and run it. It’s a short game that uses two sprites. You control 
one using the keyboard. The pattern of keys is: £5= up; 
f7= down; Commodore key = left; and SHIFT = right. The 
sprite with flashing windows is controlled by the computer, 
and will move to intercept your sprite. 
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Program Explanation: 


Line 
10-80 


90 
100 


110-140 


150-180 


190 


200 


205 


210 


Explanation 
Create the four sprite drawings. There are three 
pictures of the space station (to make it seem to flash) 
and one of the space saucer. The sprites are turned 
on; the mutlticolor mode is enabled; color is placed, 
and located onto the screen. 
POKE in the new location of the player-controlled 
sprite. 
Anienais the space station sprite by establishing a 
pointer P, which can be incremented each time the 
main loop executes. This causes the small changes in 
the station’s windows as it moves across the screen. 
Read the keyboard to move the space saucer. The 
keycodes are read by PEEKing location 197 for the 
two function keys, and location 653 for the Commo- 
dore and SHIFT keys. Depending on which key is 
ressed, the saucer moves in one of four directions. 
Check to see if the space saucer is near the seam on 
the screen. if it is, and moving from left to right, the 
appropriate POKEs are executed. 
Force the sprite to remain on the screen. It cannot 
move off to the left. Similar lines could be added to 
keep it on the screen near the other three borders. 
Check to see if the homing sprite is within 30 pixels 
of the piayer-controlled sprite. If it is, it stops 
moving. The ASB function returns the absolute value 
of a number, without any signs. All values returned 
are thus positive. 
Use the SGN function to create a 1, 0, or —1. If the 
argument (X1~- A or ¥1—B) is positive, the result is 
1; if zero, the result is also 0; and if negative, the 
result is — 1. Two is added so that the value of Q or 
QQ is always positive. This value is then used in line 
210 to execute the appropriate line. The value of F is 
also set in this line. 
Depending on the result of the SGN function in line 
205, the program executes one of the four lines from 
230 to 260. If SGN(X1 — A) equals a positive 
number—in other words, if the player’s sprite is to 
the right of the computer-controlled sprite—line 240 
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is executed, moving the computer's sprite to the 
right. 

220 Check to make sure that the computer's sprite stays 
in the sprite viewing-area. 

230-260 Move the station sprite toward the saucer. 

270-275 Keep the station on the screen. 

500-690 DATA statements for all four sprite drawings. The 
first three pictures are of the space station in its 
various stages of animation, while the fourth is the 
space saucer. 


Program 7-9. Avoid the Ship 


Remember, do not type the checksum number at the end of each line. For example, do 
not type “:rem 123,” Please read the article about the “Automatic Proofreader” in 
Appendix E. 


18 FOR X = @ TO 62s READ A: POKE 12288 + X, A: NEX 


T trem 134 

28 FOR X = @ TO 62: READ A: POKE 12352 + X, A: NEX 
T srem 127 

38 FOR X = 8 TO 62: READ A: POKE 12416 +. X,A: NEXT 
trem 129 

49 FOR X = @ TO 62: READ A: POKE 12736 + X, A: NEX 
T srem 135 

59 PRINT" {CLR}": V = 53248: POKE 53281,0: P = 192: 
Xl = 5@: Y1=5@: A=168: B=148 trem 63 

68 POKE 2049, P: POKE 2041, 199 srem 214 


76 POKE V+21,255: POKE V+28,255: POKE V+39,1: FOR 
{SPACE}X=6 TO 6:POKE V+48 +X,3: NEXT srem 121 
8@ POKE V + 37, 2: POKE V+ 38, 15: POKE V +16, @ 


srem 116 

98 POKE 2040, P: POKE V, A: POKE V + 1, Bt: POKE V 
{SPACE}+ 2, Xl: POKE V + 3, Yl trem 51 
198 P = P + 1: IF P = 195 THEN P= 192:REM ANIMATIO 
N SEQUENCE zrem 46 

11@ IF PEEK (197) = 6 THEN Yl = Y1 = 3: REM UP 

srem 78 

120 IF PEEK (653) = 1 THEN Xl = Xl + 3: REM RIGHT 
trem 28 

13@ IF PEEK (197) = 3 THEN Yl = Y1 + 3: REM DOWN 
:rem 222 

140 IF PEEK (653) = 2 THEN Xl = Xl - 3: REM LEFT 
trem 206 
158 REM CHECK FOR SEAM FOR SAUCER srem 143 
16@ IF X1>252 AND PEEK(653)=1 THEN POKE V+16, PEEK 
(V+16) OR 2: POKE V+2,@: X1l=0 trem 38 
176 IF Xl > 91 AND PEEK (V+16) AND 2 = 2 THEN Xl = 
91 zrem 92 
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19 
288 
265 
218 


228 
236 
246 
258 
268 
278 
275 
289 
5G 
518 
528 


538 
548 


559 
568 


578 


58 
598 


696 
61 


6228 


638 
649 


650 
668 


678 
686 


696 
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IFX1<3ANDPEEK(V+16 ) AND2=2ANDPEEK (653 )=2THENX1= 
255+:POKEV+16, PEEK (V+16) AND253 trem 244 
IFX1 <8THENX1=6 srem 67 
IF(ABS(X1-A)+ABS(Y1-B))<3@ THEN 96 :rem 18 
Q=SGN (X1-A)+2:QQ=SGN(Y1-B)+2:F=2 trem 73 
ON Q GOSUB 239,230,249:0N QQ GOSUB 259,250, 269 
srem 48 
Q=A:GOSUB 278:A=Q:0=B:GOSUB 278:B=Q:GOTO 924 
:rem 2 
A=A-F: RETURN rrem 225 
A=A+F : RETURN rem 224 
B=B-F: RETURN srem 229 
B=B+F: RETURN srem 228 
IF Q<5@ THEN Q=58 :rem 66 
IF Q>229 THEN Q=229 trem 179 
RETURN srem 122 
REM CENTER #1 DATA trem 168 
DATA 252,9,63, 240,%9,15,192,8,3,192,60,3,192,25 
5,3,195, 255,195, 287,255, 243 trem 197 
DATA 255, 255, 255, 54,89, 108, 54,89, 198,63,255,25 
2,57,181,156,57,1981,156 zrem 41 
DATA 255,255,255 trem 222 
DATA 267,255, 243,195, 255,195,192,255,3,192, 64, 
3,192,0,3,24%,8,15, 252,08,63 srem 288 
REM CENTER #2 DATA trem 174 
DATA 252,9%,63,240,9,15,192,0,3,192,66,3,192,25 
5,3,195,255,195, 207, 255, 243 :rem 262 
DATA 255, 255,255, 57,101,156,57,101,156,63,255, 
252,54,89,188,54,89,108 srem 46 
DATA 255,255, 255 srem 227 
DATA 267, 255,243,195, 255,195,192, 255,3,192,608, 
3,192,8,3,249,9,15,252,0,63 zxem 205 
REM CENTER #3 DATA srem 171 
DATA 252,0,63, 246,9,15,192,0,3,192,68,3,192,25 
5,3,195,255,195, 287,255, 243 srem 198 
DATA 255,255, 255, 53,158, 92,53,150, 92,63, 255, 25 
2,53,158,92,53,158,92 zrem 182 
DATA 255,255,255 :rem 223 
DATA 207,255, 243,195, 255,195,192, 255,3,192, 60, 
3,192,8,3,249,0,15, 252,9,63 srem 281 
REM SAUCER DATA srem 92 
DATA Q, G, 2,8, 8, 8, 8, a, a, Q, 9G, Q, g,2, Qa, 6,9,6, 8, 8,8 
,8,68,0,8,255,6,2,178,128,6 :rem 43 
DATA162, 96,42,178,168,255, 255, 255,42,178,168 
:rem 127 
DATA 10,176,169, 2,176,128,9,195,9,8,8,9,9,0,8, 
0,8,0,9,8,0 trem 92 
IF X1 < A THEN A = A = 2: IF A < @ THEN A = @ 
srem 212 
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Lines 200-280 allow the station to track down your character. 
The X and Y coordinates are compared, and the station sprite 
is moved in the same direction as your figure. Notice that the 
station does not move to the right of the seam, although your 
saucer can. This may be something you'll want to use in your 
own game. It could be useful as a safe area for a player- 
controlled sprite. 

By reversing this process, you can create a sprite that will 
avoid your character. Changing lines 200 — 210 will do this. 


Program 7-10. Catch the Ship 


Remember, do not type the checksum number at the end of each line. For example, do 
not type “:rem 123.” Please read the article about the “Automatic Proofreader” in 
Appendix E. 


269 IF(ABS{(X1-A)+ABS(Y1-B)}>50 THEN 96 :rem 22 
295 Q=SGN(X1=-A)+2:QQ=SGN(Y1-B)+2:F=4 srem 75 
218 ON Q GOSUB 2408, 246,233:0N QO GOSUB 260,268,250 

zsrem 58 


Now the station will race away from your saucer, but only after 
it's gotten close to the station. Line 200 sets the distance at 
which the station begins moving. Line 210 reverses the order 
of the ON/GOSUB statements, so that the station moves away, 
not toward the saucer as it did in the earlier version of the 
program. The saucer will never quite catch the station, since 
the latter moves faster. Changing the value of F in line 205 will 
allow the saucer to eventually overtake the station. 

Programming intelligent sprites is not impossible. Trade- 
offs must be made, however, when you decide to use this 
method of sprite movement. It does make the program more 
complicated and tends to slow down movement. In combina- 
tion with other movements, it can add an arcade-like element 
to your game. Random movements, along with some intelli- 
gent sprites, can make for an exciting, challenging game. 


Making It Easier 


One of the most difficult things about sprite movement on the 
Commodore 64 is the seam. As you’ve noticed, moving back 
and forth across the seam requires programming to test for the 
sprite’s location and which direction it’s moving, and then 
more programming to reset its X coordinate. You can avoid 
this complication by using only the area on the left side of the 
seam. 
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Although this shrinks the screen display area, you can use 
the right-hand side for such things as time displays, scores, 
and other player information. You'll see many games on the 64 
like this. 

All sprite movement then takes place only on the left-hand 
side of the screen. Characters can still move across the entire 
display area, but it may look strange when some figures cross 
the seam, while others don’t. For this reason, you may want to 
create a border near the seam by POKEing into screen 
memory. For an example of this, see Chapter 3, which includes 
a routine for setting up a border. With only a few changes, you 
can move the left border toward the seam, saving everything to 
the right of that line for player information. 

Again, this is a compromise. To make things easier, you’re 
sacrificing some of the 64's abilities. As game designer, you 
must decide what to keep and what to throw away. That's part 
of the fun of creating your own arcade-style game. 
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You’ve created character and sprite figures for your game and a 
playing field for them to live in. You’ve even made the 
computer control sprites as opponents. But so far your player 
has nothing to do. 

Most games allow the player to assume a character, estab- 
lishing some control over the game world. Joust, for example, 
lets the player become a knight on a strange steed. The player 
controls how this knight behaves. If the player wants the 
knight to fly to the left, it does. The game is won or lost 
depending on how the player uses this character. 

In order to control a character, the player has to have a 
way to tell the computer what it is to do. In most arcade 
games, a joystick does this. If the player presses the joystick to 
the left, the player’s character moves to the left. Other games 
use buttons, similar to the keys on the Commodore keyboard, 
to operate the character. Still others use a paddle, as one of the 
first videogames, Pong, did. As the game designer and 
programmer, you have the option of deciding how the player 
will control the game's action. 


The Keyboard 
The keyboard is very versatile. Since the Commodore 64 has 66 
keys, you could conceivably give each a different function in a 
game. Of course, most games use only a few buttons or keys. 
But that doesn’t mean the Commodore's keyboard should go to 
waste. Using the keyboard to move characters on the screen, 
the most common of all game controls, gives a great deal of 
precision to those movements. You can assign functions to 
keys in your game much like the arcade game Defender. That 
game uses buttons to control the four directions the player's 
character moves, as well as a button to fire, one for smart 
bombs, and another for jumping to hyperspace. If your game 
requires several different buttons or keys such as this, the 
keyboard may be your first choice. 

There are trade-offs, however. Unlike a joystick controller, 
which allows the player to move a character in eight different 
directions, the keyboard is usually restricted to only four. This 
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is not a problem with the keyboard, but with the player, for it’s 
very difficult to operate more than four keys at a time with any 
accuracy. For this reason, in most games that use a keyboard, 
you'll usually see only the up, down, left, and right directions 
used. That doesn’t mean you can’t move a character diagonally, 
however. You'll see how that’s done shortly. 

A keyboard, like any other game controller, is really just a 
series of switches. By changing which switches are on, and 
which are off, certain values are placed into the computer's 
memory locations. The 64 then looks to those memory 
addresses, and executes its tasks. 


Reading the K 

Normal BASIC INPUT and GET statements, although useful 
for other player operations, won't work too well in moving a 
figure. They’re too slow. You'll want to get the player's instruc- 
tions directly from the hardware—the keyboard in this case. 

Every time a key is pressed on the 64, the operating 
system stores a code number at memory location 197. This is 
the key code, and it has no relation to either the ASCH or 
screen code. Location 653 is similar, except it holds the key 
code for the SHIFT, Commodore, and CTRL keys. Appendix H 
shows the key codes for every key on the 64 that can be read 
from those locations. 

Control matrix. When your program uses the keyboard for 
movement control, you'll want separate keys for left, right, up, 
and down, and perhaps keys to perform other functions, the 
way the joystick button is used in games to make a figure jump 
or shoot or disappear. 

But you can't use just any keys. You want players to put 
their fingers on the right keys and then forget about having to 
find them again. You wouldn’t want to use 1 for left, * for right, 
X for up, and f2 for down. There's no sense to that 
arrangement. 

You might want to use the L, R, U, and D keys—but 
they’re too far apart, and only touch-typists can remember 
which is which without constantly looking. You might want to 
use the cursor keys and have them perform their normal func- 
tions—but this means that keys change value depending on 
whether SHIFT is pressed or not, which can ruin the player's 
concentration in the middle of a game. 

The most common solution is to set up a control matrix, 
an arrangement of keys in which the key that moves up is on 
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top, down is at the bottom, left is at the left, and right is to the 
right: 


T @ 
F H 
Vv i 


Here is a single program line that will read the keyboard 
using the matrix on the right (@ is up, : is left, = is right, and / 
is down). After executing this line, the variable LR will equal 1 
for right and —1 for left, and the variable UD will equal 1 for 
down and —1 for up. 


A=PEEK(197) :LR=(A=45)— (A =53) :UD=(A =46) -(A=55) 


Whenever an expression like A= 45 is evaluated, it returns 
a value of either 0 or — 1. False equals 0 and true equals — 1. So 
if A= 45, then LR will equal — 1 (true (— 1) minus false (0)). If 
A=53, however, LR will equal 1 (false (0) minus true (—1)). 
Remember that subtracting a negative number is the same as 
adding. If that sounds too much like math to you, remember it 
this way: 
Horizontal = (left?) — (right?) Vertical = (up?) — (down?) 
Inside the parentheses you put the expression: 
Keypress = Directionvalue 
So the whole thing looks like this: 


Keypress = PEEK(197) 

Horizontal = (Keypress = Leftvalue) — (Keypress = Rightvalue) 
Vertical = (Keypress = Upvalue)— (Keypress = Downvalue) 
Notice that if none of the four movement keys is pressed, the 
value of both LR and UD will be 0. 

Allowing diagonals. There is a drawback to the control 
matrix. Your computer will store only one key code at a time at 
location 197. If two keys are pressed at the same time, the key 
with the higher code value is the one that will show up. So you 
can’t press the key that means up and the key that means right 
at the same time and get diagonal movement up and to the 
right. You can get only right or up. 

In most games that’s good enough. Diagonal movements 
don’t matter much. But if your game requires this kind of char- 
acter movement, there is a solution. Use SHIFT, Commodore, 
and/or CTRL for horizontal movement and any two other keys 
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for vertical movement. Since SHIFT, Commodore, and CTRL 
are read from location 653 and the rest of the keys are read 
from address 197, your program can read vertical and hori- 
zontal movement separately, and get diagonals when two keys 
are pressed at once. 

You may run into another problem using this method. 
SHIFT, Commodore, and CTRL can be pressed in combination, 
and then a different value is stored in location 653. This is easy 
to cope with. Here’s a line that reads location 653 and makes 
the variable LR equal 1 if SHIFT is pressed, —1 if the Commo- 
dore key is pressed, and 0 if both or neither is pressed. 


LR = PEEK(653) :LR = (LR = 1) — (LR=2) 


Or if you want the movement to be left if the Commodore 
key is pressed, regardless of whether SHIFT is pressed at the 
same time or not, use the line: 


LR =PEEK(653) AND 3:LR =(LR>1) —(LR=1) 


Notice that this time we ANDed the value of 653 with 3; this 
was to make sure that if the CTRL key was accidentally 
pressed, it wouldn’t force a movement to the left too, since the 
value of 653 will always be 4 or greater if CTRL is pressed. 

It’s just as easy to read the values at location 197. Use f5 
and f7 as up-and-down controls. 
UD = PEEK(197) :UD=(UD=6) — (UD=3) 
Simple. After this program line is executed, UD will equal — 1 
if the f5 key is pressed and 1 if the f7 key is pressed. 

Since UD and LR are read from separate locations, a 
player-controlled character can be moved diagonally, not just 
horizontally or vertically alone. 


Horizontal and Vertical Movement 

Except for erasing the figure in its old location, you've already 
done everything that’s involved in horizontal and vertical 
movements. To move horizontally, you change the screen loca- 
tions by adding or subtracting 1. To move vertically, you add or 
subtract 40. Subtract to move up or left; add to move down or 
right. 

‘ You can use the 1 or — 1 from the key-reading routines 
directly for horizontal movement. But for vertical movement, 
you'll have to change the lines to reflect the fact that 40 must be 
added or subtracted. Here’s what it would look like in the diag- 
onal movement routine. 
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UD = PEEK(197) :UD= 40*((UD = 6) — (UD=3)) 

If £5 (the up key) is pressed, the value will be — 40 (40* — 1); if 
f7 is pressed, it will be 40 (40*1); and if an invalid key is 
pressed, the value will be 0 (40*0). 

Staying on the screen. There’s one other concern. You 
don’t want the figure to move off the screen. There are two 
options: you can make the figure stop at the edge of the screen 
or keep moving and reappear at the opposite edge. 

Both methods work the same way. First, the program 
checks to see if the player wants to move the figure. Then it 
calculates the new address where the figure will be POKEd. If 
the address is beyond the screen, then either the characters 
don’t move at all, or the program changes the address so that 
the figures appear on the opposite side. Only then do you 
erase the figures at the old location and POKE them in at the 
new. 
A player-controlled movement routine. This simple 
program allows you to move a character around the screen 
using the same matrix we already discussed. When the figure 
reaches the edge of the screen, it will stop. . 


Here’s how the program works: 


Line Function 

10 Set the screen background color, clear the screen, and 
disable the character set shift. 

15 Establish variable values: SC = starting address of 


screen memory; OL = old location (starting at 1); 
FG = figure value—the screen code for the character 
to be moved; CM = starting location of color memory; 
and CL=character color (0, for black). Then POKE 
FG into SC+ OL and CL into CM + OL to make the 
figure appear on the screen in the starting position. 
20 Start the main loop. Set A to the key code currently 
in location 197. Set LR for the horizontal instruction, 
UD for the vertical instruction. 


25 If both movement instructions (LR and UD) are 0, go 
back and look for a new key code value. 
30 Set NL to the new location for the figure 


(OL+LR+UD), Then GOSUB to one of the two 
edge-test routines, at 100 for the left/right test and 
200 for the top/bottom edge test. 

35 If NL has come back from the routines with the same 
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value as OL, go back to the start of the main loop 
without moving the figure. 

40 Erase the figure at the old location (OL) and POKE it 
into the new location (NL). Also POKE in the color 
location CM+ NL,CL. Then set OL to equal NL and 
go back to the start of the main loop. 

100 Left/right edge test subroutine. EH is set to a number 
from 0 to 39, representing which horizontal position 
on the line the figure will be at if the movement is 
actually executed. 

110 If the figure will be in the leftmost position (EH = 0) 
and got there by moving right (LR=1), that means 
the figure crossed the right-hand edge of the screen 
and the move isn’t allowed. Likewise, if the figure 
will be at the rightmost position (EH = 39) and got 
there by moving left (LH= — 1), that means the 
figure crossed the left-hand edge of the screen. The 
movement is cancelled in either case by setting NL 
equal to OL. 

120 RETURN to line 35. 

200-210 Top/bottom edge-test subroutine. This test is easier. If 
the new location will be off the top of the screen 
(NL<0) or the bottom (NL> 1000), the movement is 
not allowed. 


Program 8-1. Character Movement with POKE 


Remember, do not type the checksum number at the end of each line. For example, do 
not type “:rem 123,” Please read the article about the “Automatic Proofreader” in 
Appendix E. 


18 POKE 53281,1:PRINT"({CLR}"sPOKE 657,128 :rem 96 
15 SC=PEEK (648) :CM=55296 : SC=SC* 256 :OL=1 3CL=01:FG=99 


tPOKE SC+0L,FG:POKE CM+tOL,CL :rem 171 

28 A=PEEK(197) :LR={A=45)-({A=53) :UD=46* { (A=46)-(A=5 

5)) ‘ srem 54 

25 IF LR=8 AND UD=@ THEN 2% trem 187 
38 NL=0OL+LR+UD: ON-(LR<>S)-2* (UD<>S}GOSUB 100, 200 

srem 235 

35 IF NL=OL THEN 20 srem 259 

48 POKE SC+0L,32:POKE SC+NL,FG:POKE CM+NL, CL:OL=NL 

:GOTO 2¢ rem 247 

1808 EX=INT(NL/4@) : EH=NL-48*EH trem 179 

119 IF (EH=8 AND LR=1) OR (EH=39 AND LR=-1) THEN N 

L=OL trem 32 

129 RETURN trem 115 
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200 IF NL>199@ OR NL<@ THEN NL=OL trem 2 
218 RETURN trem 115 


Moving sprites. Controlling sprite movement with the 
keyboard is even easier. Using the matrix for diagonal move- 
ment (f5=up, f7= down, Commodore = left, SHIFT = right), 
you can move a sprite about the screen. The followin 
program uses only the part of the screen to the left of the seam 
and the sprite remains on the screen at all times. This simpli- 
fies the programming. 


This is how the program functions: 


Line Function 

10 GOSUB to subroutine at 300, which sets up the 
sprite. 

20 POKE in the X and Y coordinate positions of the 0 
sprite. 


30-60 PEEK to check which key was pressed, then move 
the sprite accordingly. Notice that the sprite moves 
faster since it uses increments of three pixels each 
time it changes position. If the sprite reaches a border 
(either an actual border or the seam), it stops and 
waits for another key to be pressed. 


70 Send the program back to line 20, where the new X 
and Y coordinate positions are POKEd in. 

300 Set variables for V, X and Y. Clear the screen and set 
background color to white. 

310 READ the sprite DATA and place it in memory 
starting at 12288. 

320 Enable sprite, set sprite pointer, and set sprite color 
to black. 


500-520 Sprite DATA numbers. 
Program 8-2. Keyboard Sprite Movement 


Remember, do not type the checksum number at the end of each line. For example, do 
not type “:rem 123.” Please read the article about the “Automatic Proofreader” in 
Appendix E. 


16 GOSUB 368 :rem 116 
26 POKE V+9,X:POKE V+1,Y :rem 182 
39 IF PEEK(653)=1 THEN X=X+3:IF X>255 THEN X=255 
srem 73 
46 IF PEEK(653)=2 THEN X=X-3:IF X<24 THEN X=24 
rem 223 
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56 IF PEEK(197)=3 THEN Y=Y+3;:IF Y>229 THEN Y¥=229 


trem 86 
60 IF PEEK(197)=6 THEN Y=Y-3:IF Y<5@ THEN Y=5@ 
srem 234 
78 GOTO 28 srem 2 
309 V=53248:PRINT"{CLR}":POKE 53281,1:X=16@: Y=190 
srem 98 
318 FOR I=@ TO 63:READ A:POKE 12286+1,A:NEXT 
srem 156 
328 POKE V+21,1:POKE 2649,192:POKE V+39,6:RETURN 
:rem 202 
509 DATA 0,4,0,9,8,0,9,0,9,0,8,0,8,16,60,0,16,0,8,1 
6,8,9,16,08,8 :rem 91 
510 DATA 56,6,0,124,0,8,176,0,1,85,6,1,255,8,1,255 
,9,9,170,8,1,41,8 trem 136 
528 DATA 2,40,128,6,0,9,9,8.9,0,9,9,8,8,9,8 
trem 230 


Wrapping around. With this next program, we'll change 
several things as we move a character. First, instead of 
POKEing the figure on the screen, we’ll PRINT it there. 
Second, instead of reading the control matrix, we'll read the £5, 
£7, Commodore, and SHIFT matrix, as with the sprite move- 
ment program. 


Here’s how the program operates: 


Line Function 

5 Set up the string array V$(), in which each value of 
V$ PRINTs HOME and the same number of 
CURSOR-DOWN characters as the subscript. In 
other words, V$(10) PRINTs HOME and ten 
CURSOR-DOWN characters; V$(2) PRINTs two 
HOME and two CURSOR-DOWN characters. 


10 The same as line 10 in Program 8-1, Character POKE 
Movement. 
15 Set the string FG§ to the character that will become 


the figure PRINTed on the screen, Set NV to the row 


and NH to the column where the figure first appears. 


Skip the next few lines to execute the PRINT routine 


at line 40. 

20 The beginning of the main loop. Set A to the value of 
the key pressed; set B to the value from SHIFT and 
Commodore. 

25 Set H to —I (left) if Commodore or (SHIFT and 


Commodore) was pressed (B>1), or 1 (right) if 
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SHIFT was pressed (B= 1). Set V to —1 (up) if £5 was 
pressed, or to 1 (down) if £7 was pressed. If SHIFT 
and Commodore are not pressed, set H to 0; if 
neither £5 nor £7 is pressed, set V to 0. 

Set NV (New Vertical position) to OV (Old Vertical 
position) plus V (Vertical Movement). If OV is set at 
the last valid row, 23, and V cails for a movement 
down (+1), subtract 23; if OV is at 0 and V calls fora 
movement up (—1), add 23. 

Set NH (New Horizontal position) to OH (Old Hori- 
zontal position) plus H (Horizontal movement). If 
OH is set at the last valid column, 39, and H calls for 
a movement right (+1), subtract 38; if OH is set at 0 
and H calls for a movement left (— 1), add 38. 

Skip down the number of rows from HOME to the 
row where the figure is located (PRINT V$(OV)), 
move right the number of columns to the figure’s 
location (TAB(OH)), and erase the figure by printing 
a blank character (“ ”). Repeat the process, using 
only the new location values (NV and NH) so you 
can PRINT the figure (FG$) at the new position. 

Set OH and OV to the current figure position (NH 
and NV), and go back to 20 to get the new instruc- 
tions from the player. 


Program 8-3. PRINT Character Movement 


Remember, do not type the checksum number at the end of each line. For example, do 
not type “:rem 123,” Please read the article about the “Automatic Proofreader” in 
Appendix E. 


5 DIM V$(24):V$(@)="{HOME}":FOR I=1l TO 24: V$(I)=V$ 


19 
15 
28 
25 
38 
35 
4g 


45 


(I-1)+"{DOWN}" :NEXT srem 224 
POKE 53281,1:PRINT" {CLR} {BLK}":POKE 657,128 
srem 246 
FGS="Z":NV=12:NH=20:GOTO 428 zrem 54 
A=PEEK( 197) : B=PEEK( 653) AND3 :rem 262 
H=(B>1)-(B=1) : V=(A=6)-(A=3):IF V=@ AND H=@ THEN 
26 :rem 194 
NV=0V+V+24* ((OV=23 AND V=1)-(OV=@ AND V=-1)) 
srem 249 
NH=OH+H+39*({OH=38 AND H=1)-(OH=@ AND H=-1)) 
srem 168 
PRINT V$(OV)};TAB(OH);" ";V$(NV);TAB(NH) ;FG$ 
srem 105 
OH=NH:0V=NV:GOTO 26 srem 184 
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In-line logic. If you aren’t an experienced programmer, 
the logic in lines 30 and 35 may look complicated to you. Since 
this kind of statement saves you from having a lot of IF state- 
ments and extra lines, it might be worth looking more closely 
at what is going on. Let’s take a closer look at line 35: 


35 NH=O0H+H+39*{ (OH=38 AND H=1)-(OH=@ AND H=-1)) 
:rem 168 


The first part is pretty clear-cut. We are setting NH to equal 
OH, the old horizontal position, plus H, the piayer’s horizontal 
movement instruction. H might be 0, of course, in which case 
this entire line will do nothing but add 0 to OH, so that NH 
and OH are the same. 

The rest of the line causes the wraparound. Look at the 
last 17 characters of the line: -(OH=0 AND H=- 1)). If the 
figure was already in column 0 (OH =0) and the movement 
called for is left ({H=1), both conditions are true and the value 
within the parentheses is — 1. But we are subtracting that value, 
so that, in effect, if the result is true we will add 1. Now look at 
the rest of that expression. 

If the second half is true, the first half (OH=38 AND 
H=1) must be false. It will then equal 0. So the whole expres- 
sion within parentheses evaluates as 0—(—1) or 0+1. 

That number is multiplied by 39, with a result of 39, which 
is added to OH +H. Since we know that OH=0 and His —12, 
that means that NH is set to 0—1+39, or 38. Now the PRINT 
instruction in line 40 will TAB to column 38, the last legal 
column. 

What the player sees is that he or she told the figure to 
move left, and the figure jumped from the leftmost column to 
the rightmost position on the screen. That's called 
wraparound. 

Now you'll see that if the first condition is true, the second 
will be false, and we’ll be setting NH to the value of 38+ 1-39, 
or 0, and the figure will jump from the right edge of the screen 
to the leftmost position. 

And if neither condition is true, 39*(0 — 0) gives 0, and NH 
will simply equal OH + H—the normal movement will take 
place. 

This keyboard routine, which includes the wraparound 
feature, is used in “Mission: Nova!,” the game we're devel- 
oping throughout this book. Take a look at Chapter 9 to see 
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how this movement routine was added to an actual game 
program. 

Wrapping sprites. Making player-controlled sprites wrap 
around the screen is similar to the programming you did in 
Chapter 7, when your computer-controlled sprites disappeared 
at one edge and reappeared at the opposite border. Because of 
the problem with the seam, additional POKEs are required to 
check to see if the sprite has reached the seam, to cross the 
seam, and then to reset the X coordinate position. These condi- 
tions must be constantly checked when you use BASIC to 
move sprites, so the movement slows down somewhat. To see 
a sprite wrap around the screen in horizontal movement, you 
need to change only two lines of Program 8-2, Keyboard Sprite 
Movement, and add two new lines. 


The changes work like this: 
Line Function 
30 Move the sprite to the right, checking for the seam 


(X>255). When the seam is reached, POKE V+ 16,1 
to enable the 0 sprite to cross. Reset X to 0. 

35 Check to see if the sprite is at the far right-hand edge 
of the screen. If itis (X 65 AND PEEK (V + 16) = 1), 
the V + 16 register is turned off (V+ 16,0) and its X 
coordinate is reset to 1. 

40 Move the sprite to the left, checking for the seam (IF 
X<1 AND PEEK(V + 16)=1). When the seam is 
reached, the V + 16 register is turned off and X is 
reset to 255. 

45 Check to see if the far left-hand edge of the screen is 
reached (IF X<1 AND PEEK(V + 16) =0). When the 
edge is reached, turn on the V + 16 register and reset 
X coordinate position to 65, the location at the far 
right-hand edge of the screen. 


Program 8-4. Wrapping Around Sprites 


Remember, do not type the checksum number at the end of each line. For example, do 
not type “:rem 123.” Please read the article about the “Automatic Proofreader” in 
Appendix E. 


3@ IF PEEK(653})=1 THEN X=X+3:IF X>255 THEN POKE V+ 


16,1:X=@ srem 139 

35 IF X>65 AND (PEEK(V+16)=1) THEN POKE V+16,0:X=1 
zrem 138 

49 IF PEEK(653}=2 THEN X=X-3:IF X<l AND PEEK(V+16} 
=1 THEN X=255:POKE V+16,2@ trem 44 
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45 IF X<l AND PEEK(V+16)=@8 THEN X=65:POKE V+16,1 
trem 56 
The sprite doesn’t wrap around in the Y direction in this 
sample, although it would be relatively easy to do. Notice that 
as you add more lines to the movement loop, as we did in this 
program, the more the sprite slows down. In Program 8-4, for 
instance, the sprite moves much faster in the vertical direction 
than in the horizontal since the program does not have to 
check for the seam or the edges of the screen. You may want to 
restrict your sprites’ movements to the screen area, perhaps 


even to just the portion to the left of the seam, to speed them up. 


Reading the Joystick 

Joysticks are the most commonly used game controllers today, 
although that doesn’t mean you have to include them in your 
game. Oftentimes keyboard controllers will work fine. Some- 
times, however, you'll want your players to use joysticks. They 
are more convenient in some ways, for they allow the player to 
move a character easily with only one hand, leaving the other 
free to press keys, for instance. Most joysticks also include a 
fire button, which you can program to serve almost any func- 
tion you wish. Of course, many games use the fire button to 
shoot missiles, drop objects, or make the character disappear, 
but you could use it for starting the game, going to another 
level, or clearing the screen. 

Joysticks on the 64 are read by PEEKing two locations. At 
location 56321, you read a joystick plugged into port #1. At 
location 56320, you read a joystick plugged into port #2. When 
you create your game, make sure the players are using the 
joystick port your program is reading by PEEKs. 

If the joystick is pushed in a particular direction, a certain 
bit will be set to 0; if the joystick is not being pushed in that 
direction, that bit will be set to 1. In other words, a joystick is 
simply a series of switches, which are either on or off. Using 
PEEKs, you can read which are set to 0 and which to 1. 

Here are the tests for each direction for a joystick plugged 
into port #1: 

1. If the joystick is pushed left, PEEK(56321)AND15 = 11 

2. If the joystick is pushed right, PEEK (56321)AND15 =7 

3. If the joystick is pushed up, PEEK(56321)AND15 = 14 

4. If the joystick is pushed down, PEEK(56321)AND 

15=13 
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5. If the joystick button is pushed, —((PEEK(56321)AND 
16) = 0) 

If any of these expressions are true, the joystick is being 
pushed in that direction. Remember, too, that a joystick can be 
pushed in a diagonal direction—it is possible for both 2 and 3 
to be true, or 1 and 4, and so on. And the joystick button can 
be pressed at the same time. 

The values returned for each of the directions in which 
you can push the joystick are shown in Figure 8-1, Joystick 
Values. The value 15 is returned if the joystick is not pushed 
at all. 


Figure 8-1. Joystick Values 
14 


Character moves. Using the logical AND is called masking. 
Just as you use masking tape to cover something you don’t 
want painted, for instance, you can use the AND function to 
cover up bits you don’t want exposed. It’s then simple to read 
the joystick, just as you earlier read the keyboard, to move a 
character around the screen. Look at the following program for 
a minute: 


Program 8-5. Joystick Character Movement 

Remember, do not type the checksum number at the end of each line. For example, do 

not type “:rem 123.” Please read the article about the “Automatic Proofreader” in 

Appendix E. 

5 DIM V$(24}:V$(8)="{HOME}":FOR I=1 TO 24:V$(I)=VS 
(I-1)+" {DOWN} " :NEXT trem 224 
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18 POKE 53281,1:PRINT"{CLR}{BLK]}":POKE 657,128:FG$ 


="O":NV=12:NH=20:GOTO 45 erem 246 
15 JY=PBEK(56321)ANDL5 :rem 246 
29 H=(JY=11)-(Jyv=7) trem 15 
25 V=(JY=14)-(Jy=13) srem 82 
38 IF H=@ AND V=8 THEN 15 srem 219 

35 NV=OV+V+24*((OV=23 AND V=1)-{OV=@ AND V=-1)) 
trem 254 

40 NH=OH+H+39*((OH=38 AND H=1)-{OH= AND H=~1)) 
srem 164 

45 PRINT V$(OV);TAB(OH);" “;V$(NV);TAB(NH);FGS 
srem 119 
58 OH=NH:OV=NV;:GOTO 15 trem 184 


This is a variation of Program 8-2, which moved a char- 
acter around the screen using keyboard controllers. Instead of 
reading the keyboard, however, this program reads the joystick 
plugged into port #1. Lines 15-25 do this. Notice that since 
PEEK(56321) is ANDed with 15, only horizontal and vertical 
movement is possible. Lines 20 and 25 set H and V to1, —1, or 
0, depending on which way the joystick is being pushed. 

This program also uses a wraparound feature, which 
moves the character from the top to the bottom of the screen, 
and from side to side. Lines 35 and 40 do this. 

To read the joystick fire button, more lines are needed in 
the program. It’s a good idea to use a subroutine called only 
when the fire button is pressed. This shortens the main loop 
and makes the character move faster than if the fire button 
were read and checked each time through the loop. To see the 
fire button read, and a message displayed when it is pressed, 
add these lines to Program 8-5: 


Program 8-6. Joystick Fire Routine 
48 FB=-((PEEK({56321) AND 16)=08):IF FB=1 THEN GOSUB 


19e@ trem 29 
106 PRINT "FIRE!":FOR T= TO 10@8:NEXT T srem 146 
11@ PRINT *{CLR}":RETURN srem 16 


The fire button is read in line 48, and if it is pressed (FB=1), 
the subroutine at line 100 is executed and a message is shown 
on the screen. If the fire button is not pressed, the PEEK in line 
48 returns a 0, and the subroutine is not called. 

To make the joystick move a character diagonally, more 
changes are needed in this sample program. Changing lines 20 


208 


ae Ce So eee Gee Gea Gs a Cee Oe ee Oe eo ee ee Oe On en ee ee ee ee ee Cr ne 


PDIIIIIIIIIIIIIIIIIAIIAIIDIIINIINIG 


Controlling Movement 7/7! 


and 25 in Program 8-5 allows the joystick to read the diagonal 
directions and then move the character. Here are the new lines. 


20 H=((JY AND 4)=8)~((JY AND 8)=6) 
25 v=({JY AND 1)=8)-((JY AND 2}=6) 


Now you have a method to move characters on the screen 
with the same ease as when the Commodore, SHIFT, £5, and f7 
keys were used before. 

Moving sprites with the joystick. The joystick can also be 
used to move player-controlled sprites on the 64. The joystick 
is read instead of the keyboard with a PEEK statement, and the 
appropriate movement is then executed, depending on the 
direction the stick is pushed. Changing Program 8-2, Keyboard 
Sprite Movements, moves the sprite with a joystick instead of 
the keyboard. 


Program 8-7, Joystick Sprite Moves 


18 GOSUB 398 :rem 116 
26 POKE V+@,X:POKE V+1,Y srem 1462 
25 JY=PEEK(56321) AND 15 trem 247 


39 IF J¥=7 THEN X=X+3:IF X>255 THEN X=255 :rem 222 
4% IF J¥=11 THEN X=X-3:IP X<24 THEN X=24 :rem 158 
59 IF JY=13 THEN Y=Y+3:IF Y>229 THEN Y=229 :rem 19 
6@ IF JY=14 THEN Y=Y-3:IF y¥<5@ THEN Y=59 srem 165 
78 GOTO 28 trem 2 
368 V=53248:PRINT"{CLR}":POKE 53281,1:X=160:Y=190 
zrem 99 
316 FOR I=@ TO 63:READ A:POKE 12288+1,A:NEXT 
trem 156 
324 POKE V+21,1:POKE 2049,192:POKE V+39,9:RETURN 
trem 260 
508 DATA 0,8,9,0,0,9,0,0,0,6,86,8,%,16,9,9,16,6,8,1 
6,0,9,16,9,08 :rem 91 
516 DATA 56,0,0,124,8,6,178,6,1,85,8,1,255,0,1, 255 
,@,8,179,6,1,41,0 srem 136 
528 DATA 2,46,128,9,9,8,9,8,9,0,80,0,8,0,9,8 
:rem 239 


The variable JY is set in line 25 to equal PEEK(56321) AND 
15. In the next four lines, the joystick is read, and the sprite is 
moved in the appropriate direction. If the joystick is pushed to 
the right, for example, the expression JY =7 is true and 
X=X+3. The sprite then moves to the right. Pushing the joy- 
stick up makes the expression JY = 14 true in line 60, so 
Y=Y-—3 and the sprite moves upward. Because only the 
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values received for horizontal and vertical movement are read, 
however, the sprite will not move diagonally. To do that, you'll 
need an entirely different kind of routine. 

Diagonal joystick movement for sprites. Sprites move 
quite differently than characters, and creating diagonal move- 
ment is more difficult. You can’t just increase the character's 
location by 40 and see it move down a line. Both the X and Y 
coordinates have to be changed to move a sprite diagonally, 
and this takes more programming. Program 8-8 shows how 
you can move a sprite diagonally with the joystick. 


Here's how this program works: 


Line Function 

10 Shift the program to line 300, where the sprite is 
established. 

25 Set variable JY equal to PEEK(56321)AND 15, which 
reads the joystick plugged into port #1. 

30 The ON GOSUB statement is useful when reading a 


joystick. Using ON GOSUB, the value of JY sends the 
program to different locations. If the value of JY is 1, 
for instance, the program shifts to line 35. Since 1 
isn’t a value returned for a directional movement, it 
simply returns to line 30 and waits for another value. 
If JY = 14, however, that means the joystick was 
pushed up, and the program shifts to line 110, where 
Y=Y-—3. The sprite then moves up. (Refer to Figure 
8-1, Joystick Values, for the numbers returned for 
each direction.) The program then goes back to line 
25 and reads the joystick again. 


35 RETURN the program to line 30 if an unusable value 
is read from the joystick. 
40 First execute line 60, movement to the right, then line 


100, movement down, to create the diagonal move- 
ment down and to the right. 

50 Same as line 40, but movement to the right and 
movement up (line 110) are combined for diagonal 
movement up and to the right. 

60-65 Move the sprite to the right only. Keep the sprite on 
the screen, to the left of the seam. 

70-75 Move the sprite to the left. The sprite stays in the 
viewing area because of the expression IF X<24 
THEN X= 24. 
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80 Execute line 100, movement down, then execute line 
70, movement to the left, to create diagonal move- 
ment down and to the left. 

90 Same as line 100, except that movement up is 
combined with movement to the left. This makes the 
sprite move diagonally up and to the left. 

100-105 Move the sprite downward unless Y is greater than 
229. 

110-115 Move the sprite upward unless Y is less than 50. 

300-320 Sprite setup. Variable V is set, screen is cleared, 
sprite coordinates are set, the sprite is READ from 
DATA and turned on. Sprite color set. 

500-520 DATA statements for the sprite. 


Program 8-8, Diagonal Sprite Joystick Movement 


Remember, do not type the checksum number at the end of each line. For example, do 
not type “:rem 123.” Please read the article about the “Automatic Proofreader” in 
Appendix E. 


14 GOSUB 360 srem 116 
25 JY= (PEEK(56321})AND15) srem 72 
340 ON JY GOSUB 35,35,35,35,40,58,60,35,89,98,78, 38 
, 108,110, 35:GOTO25 srem 194 
35 RETURN srem 72 
40 GOSUB 68:GOSUB 189:RETURN zsrem 175 
56 GOSUB 68:GOSUB 119:RETURN zrem 177 
68 X=X+3:IF X>255 THEN X=255 z:rem 12 
65 POKE V+0,X:RETURN trem 233 
7@ X=X-3:IF X<24 THEN X=24 :rem 161 
75 POKE V+6,X:RETURN trem 234 
88 GOSUB 198:GOSUB 76: RETURN zrem 186 
928 GOSUB 118:GOSUB 78@:RETURN :rem 182 
190 Y=Y¥+3:IF Y>229 THEN Y=229 zrem 61 
185 POKE V+1,Y:RETURN rrem 22 
116 Y=Y-3:IF Y¥<5@ THEN Y=5@ srem 296 
115 POKE V+1,Y¥:RETURN srem 23 
398 V=53248:PRINT"{CLR}":POKE 53281,1:X=168:Y=186 
:rem 98 
316 FOR I=@ TO 63:READ A:POKE 12288+1,A:NEXT 
srem 156 
32@ POKE V+21,1:POKE 2049,192:POKE V+39,0:POKE V+@ 
»X:POKE V+1,Y:RETURN srem 6 
502 DATA 2,3,0,9,6,0,0,9,8,8,9,0,9,16,8,6,16,8,8,1 
6,8,8,16,0,8 trem 91 
510 DATA 56,9,0,124,0,0,178,9,1,85,8,1,255,8,1, 255 
,8,8,170,9,1,41,8 rrem 136 
528 DATA 2,40,128,8,6,8,9,8,9.9,6,0,9,9,8,8 
srem 239 
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The sprite stays on the screen, does not wrap around, and also 
uses only the viewing area to the left of the seam. This simpli- 
fies programming. Of course, you can make it move across the 
seam by adding lines which test for the seam, POKE in the 
V+ 16 register, and reset the X coordinate. Look at Program 8-4 
for an example of how this was done when you used the 
keyboard to move sprites. You can use the same programming 
techniques to add this feature to joystick sprite movement. 
The joystick button. As long as we're reading the joystick, 
let’s find another use for the button. By adding lines 15, 20, and 
120, and changing line 30 in Program 8-8, we can make the 
screen change color each time the fire button is pressed. 


15 FB=-((PEEK(56321) AND 16}=@} trem 24 
28 ON FB GOSUB 126 srem 154 
36 ON J¥ GOSUB 35,35,35,35,48,58,68,35,88,98,78, 38 

,190,118,35:GOTOL5S rrem 193 


128 R=INT(RND(9)*16}:POKE 53281, R:RETURN srem 97 


Line 15 reads the fire button and sets the value as variable FB. 
Line 20 uses another ON/GOSUB statement to shift the 
program to line 120 if FB is 1, which is the value returned 
when the button is pressed. If the fire button is not pressed, 
line 15 returns a value of 0, and the program continues as it 
did before. Line 120 generates a random number from 0 to 15, 
then POKEs that number into location 53281 to alter screen 
background color. You had to change the end of line 30 to 
GOTO 15 so that the fire button is read each time through the 
main loop. 


Machine Language Movement Routines 

The process of reading the keyboard or the joystick is some- 
thing that may not seem complicated once you see a few exam- 
ples, but it does consume valuable space within your program’s 
main loop. In BASIC games this is important, for it determines 
the speed with which your characters or sprites move about 
the screen. The more elaborate your main program loop is, the 
slower everything moves. . 

An all-BASIC game can certainly move fast enough to 
keep the player's interest, but compromises must often be 
made. Perhaps diagonal movement has to be thrown out in 
order to make the sprites move at a reasonable speed. Maybe 
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more than a handful of sprites on the screen slow the game 
down to a crawl. Machine language routines can speed up this 
movement. 

Machine language is the native language of your 64. It can 
be hundreds, even thousands, of times faster than BASIC. 
When a program executes in BASIC, the 64’s BASIC interpreter 
looks at each statement, decides what it means, and translates 
it into machine language. Machine language routines by-pass 
this interpretation and translation, and speed up the execution 
of a program. One of the easiest ways to see machine 
language's abilities is using it to move characters or sprites. 

Programs written in machine language look quite different 
from those written in BASIC. The final product of a machine 
language routine is a series of numbers that are placed in 
particular memory locations. Once you have these numbers, 
you simply place them in a number of DATA statements and 
POKE them into an area of computer memory that’s available. 
The 64 then looks to the numbers in this area of memory and 
executes its instructions. 

If you don’t know any machine language, even if you 
don’t want to try, don’t worry. You don’t have to know 
machine language to use these movement routines. All you 
have to do is correctly enter the routine, and the computer will 
do all the rest. 


Where they go. Because these machine language routines 
are little more than values stored in certain memory locations, 
you first have to find a place to store them. One of the easiest 
places to locate these machine language instructions is in the 
cassette buffer. 

Usually used to temporarily store information transferred 
to and from the cassette drive, the cassette buffer uses memory 
locations 828 to 1019. Since this area is also protected from the 
computer’s BASIC program, it is an ideal area to place machine 
language DATA. 

This can be a problem if you're using a cassette drive to 
LOAD and SAVE programs, however. When you use the 
cassette buffer for machine language storage, you can’t use the 
cassette drive, too. Once you have finished LOADing a 
program, you can use this area of memory to store the 
routines. You won't be able to save anything on tape, though, 
since the buffer will be occupied by strange DATA. 
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SYSing 

Once you have the machine language routine in place, you get 
it to run by typing (or having the program enter it for you) the 
command SYS(1), where n is the memory location of the begin- 
ning of the routine. If you stored a machine language routine 
at the start of the cassette buffer, for instance, you would need 
a SYS(828) to access the routine. The routine automatically 
returns to your BASIC program when it is finished, which 
usually takes only a millisecond or so. The following routines 
all give the SYS address needed to access the routine, as well 
as the DATA numbers which are POKEd into the cassette 
buffer to form the routine itself. 


Keyboard-Controlled Character-Movement Routines 
This first machine language routine reads the keyboard and 
places values into locations 828 and 829. Once the values are 
there, you can use them to create an equation which produces 
the new screen location of the character. Since this is a simple 
machine language routine, you'll stil! have to do much of this 
work yourself. 

The routine checks location 197 (just as you did when you 
created a program which read the keyboard through PEEKs). It 
then compares the key code value with the values you estab- 
lished as representing the four possible directions and the fire 
button. You decide which four keys are used for movement, 
and which is used for the fire button. The key codes must be 
POKEd into memory locations before the main loop begins. 
The direction for each key, and the memory location to POKE 
its key code into, are: 


UP—key code value POKEd into location 251 
RIGHT—key code value POKEd into location 252 
LEFT—key code value POKEd into location 253 
DOWN—key code value POKEd into location 254 

FIRE BUTTON—key code value POKEd into location 80 


This routine is accessed by a SYS(831), which should be in 
a line within your program's main loop. Once it has been 
executed, you'll find that the routine has placed values into 
locations 828 and 829 which will allow you to calculate a new 
location for your character. The formulas are: 


NL(New Location) = OL(Old Location) 
+ (PEEK(828) — PEEK(829)) 
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You can then POKE in the character’s new location and posi- 
tion in color memory using the value NL. You can also erase 
the old image with the line: 


POKE NL — (PEEK(828) — PEEK(829)),32 


The routine does not create a character, nor does it keep the 
character on the screen. You'll need to provide those in the 
program. You can insert this into any program you write, 
which is one of the advantages of machine language routines. 
Program 8-9 is the BASIC loader and DATA statements for this 
routine. 


Program 8-9. ML Character Keyboard Controller 
1@ REM BASIC LOADER FOR KEYBOARD CONTROLLED CHARAC 


TER MACHINE LANGUAGE ROUTINE rrem 129 
28 FOR X = 831 TO 926: READ A: POKE X, As: NEXT 
trem 252 


1980 REM DATA FOR MACHINE LANGUAGE ROUTINE trem 5 
1820 DATA 165,197,197, 251, 268,13,169,90,141,60,3,16 
9,48,141,61,3,96, 234 srem 120 
1638 DATA 234,197,252, 288,13,169,1,141,69 srem 224 
1@4@ DATA 3,169,8,141,61,3, 96, 234, 234,197,253, 208, 
13,169,9,141,60,3,169 srem 163 
1@5@ DATA 1,141,61,3,96, 234, 234,197,254 srem 126 
1968 DATA 288,13,169,48,141,69,3,169,9,141,61,3,96 
7 234, 234,197,868, 208,8 :rem 166 
1878 DATA 169,1,141,62,3,96, 234, 234,169 zrem 133 
1088 DATA @,141,68,3,141,61,3,141,62,3, 96,234, 234 
zrem 84 
To see this machine language routine in action, complete 
with a moving character and programmed keys for movement, 


look at Program 8-10. 
Here’s how this demonstration works: 


Line Function 
10 Set screen color and clear screen. 
15 BASIC loader section of the machine language 


routine. DATA beginning in line 1020 is POKEd 
into the cassette buffer. 

20 Establish variables L (beginning location), C (char- 
acter’s screen code), CM (number added to location 
to place the character in the right position in color 
memory). Also POKE in the character and its color 
(yellow). 
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25 


30 


40 


POKE the key codes into the proper locations to 
set the keys which determine movement. @ is up, 
= is right, : is left, and / is down. 

Access the machine language routine with 
SYS(831) and set the variable R as 

PEEK(828) — PEEK(829). 

H no key is pressed, shift program back to line 30. 


50-55 Establish L (New Location of character), then erase 


60 
70 


it. Last expression keeps the character on the 
screen. (Unfortunately, it will jump from top or 
bottom of the screen to either the upper-left corner 
or the lower-right corner. Stopping at the top or 
bottom would mean more complicated program- 
ming--something a demonstration program 
doesn’t need.) 
POKE in L and also new color memory location 
(L+CM,7). 

* Complete the main loop by beginning it again. 


1020-1080 DATA statements for machine language routine. 


Program 8-10. Character Keyboard Demo 


Remember, do not type the checksum number at the end of each line. For example, do 
nat type “:rem 123,” Please read the article about the “Automatic Proofreader’ in 


Appendix E. 
18 POKE 53281,6:PRINT® {CLR} {WHT}" :rem 146 
15 FOR X=831 TO 926:READ A:POKE X,A:NEXT :rem @ 
20 L=1520:C=42:CM=54272:POKE L,C:POKE L+CM,7 

rrem 213 
25 POKE 251,46:POKE 252,53:POKE 253,45:POKE 254,55 

trem 148 
308 SYS (831) :R=PEEK(828)-PEEK(829) srem 118 
40 IF R=@ THEN 32 srem 68 
5@ L=L+R:POKE L-R,32:IF L>2923 THEN L=2023 :rem 21 
55 IF L<1@24 THEN L=1024 :rem 199 
60 POKE L,C:POKE L+CM,? trem 35 
78 GOTO 32 srem 3 


18@@ REM DATA FOR MACHINE LANGUAGE ROUTINE :rem 5 
1028 DATA 165,197,197, 251, 268,13,169,8,141,608,3,16 


9,48,141,61,3,96, 234 trem 128 


1936 DATA 234,197,252, 288,13,169,1,141,68 :rem 226 
1946 DATA 3,169,8,141,61,3,96, 234, 234,197,253, 268, 


13,169,9,141,68,3,169 trem 163 


165@ DATA 1,141,61,3,96,234, 234,197,254 trem 126 
1966 DATA 208,13,169,48,141,68,3,169,9,141,61,3,96 


7 234, 234,197,880, 268,8 zrem 166 


1876 DATA 169,1,141,62,3,96, 234, 234,169 srem 133 
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1988 DATA 8,141,660, 3,141,61,3,141, 62,3, 96, 234, 234 
srem 84 


A Faster Machine Language Routine 

This second machine language routine has some features that 
will do some of the steps you had to program yourself in the 
last routine. This routine automatically POKEs the character 
into its new position on the screen, and keeps it on the screen 
for you. The character will not return to the corners, as in the 
last routine, but instead will simply stop at the top or bottom 
edges when they are reached. 

However, you'll lose the ability to test for collisions with 
other characters with this routine. This will not affect collision 
detection between sprites, which have a separate register for 
this. The chapter on collision detection will cover this more 
closely, so if you don’t understand it yet, don’t worry. 

You will still have to provide parameters for this routine. 
First of all, the routine needs to know the starting location of 
your character, both in screen and color memory. There are 
four memory locations set aside that will contain pointers to 
the screen and color memory addresses. These are locations 
251-254. 

Setting these pointers involves a few steps that may seem 
complicated at first, but should be clear once you've gone 
through them. Consult the Screen Location Table in Appendix 
C and decide where the character wiil first appear. Take that 
screen location and divide by 256. The number, rounded down 
to the nearest integer, is then POKEd into location 252. For 
example: 

Starting screen location = 1904 
1904/256 = 7.4375 Rounded down to 7 
POKE 252,7 

Second, take the remainder from that division and POKE 
the number into both location 251 and location 253. For 
instance: 

1904/256 =7 with a remainder of 112 
POKE 251,112:POKE 253,112 

Next, take the number you just POKEd into 252 (7) and 
add 212 to it. This number is POKEd into location 254. 
7+212=219 
POKE 254,219 


217 


MEMS Controlling Movement 


What you’ ve just done is set the pointers that contain the 
least significant byte (LSB) and most significant byte (MSB) of 
the screen and color memory locations of the character. If you 
haven’t worked with machine language before, this may sound 
confusing, but all you really have to know is how to calculate 
the appropriate values for these POKEs. 

Once the location pointers are set, you also need to decide 
what character to use, and which color it will be. If you were 
using this routine with a custom character, for instance, you 
could easily substitute one as the player-controlled character. 
Whether you use a standard character, or a custom character, 
its screen code value must be POKEd into location 832, and its 
color value into location 833. 

The last thing is to decide which keys you'll use for each 
direction of movement. Enter the key code values for your 
chosen keys as POKEs in these locations: 


UP at location 828 
DOWN at location 829 
LEFT at location 830 
RIGHT at location 831 


A total of 10 POKEs are needed for this routine before it 
can execute properly. Here’s the BASIC loader and DATA state- 
ments for this machine language routine, which is SYSed with 
834: 


Program 8-11. BASIC Loader and DATA Statements 


Remember, do not type the checksum number at the end of each line. For example, do 
not type “:rem 123.” Please read the article about the “Automatic Proofreader” in 
Appendix E. 


18 REM BASIC LOADER FOR FAST({CKX} KEYBOARD CONTROL 
LED CHARACTER ROUTINE trem 164 

26 FOR X = 834 TO 1014: READ A: POKE X , A: NEXT 
rrem 36 
1826 DATA 32,176,3,165,197,205,60,3,208,14,32,183, 
3,32, 228,3,176,63,32 srem 107 
1938 DATA 166,3,76,147,3,2805,61,3, 268,14, 32,169, 3, 
32,237,3,144,44, 32 srem 245 
19428 DATA 183,3,76,147,3,285,62,3, 208,14, 32,199, 3, 
32,228,3,176,25,32,217 trem 219 
1956 DATA 3,76,147,3,205,63,3,208,14,32,217,3,32,2 
37,3,144,6,32,199,3 srem 53 
1968 DATA 76,147,3,168,0,173,64,3,145,251,173,65,3 
2145,253,96, 24,165 ¢rem 24 
1978 DATA 251,195,40,133,251,133,253,144,4 :rem l 
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1886 DATA 236, 252, 238,254, 96,166,8,169, 32,145,251, 


96,56,165, 251, 233,46 srem 128 
1896 DATA 133,251,133, 253,176, 4,198, 252,198,254, 96 
2165, 251, 268,9, 198,251 srem 254 
119@ DATA 198,253,198, 252,198, 254, 96,198, 251,198,2 
53,96, 239, 251, 238, 253, 288 srem 154 
1110 DATA 4, 238,252,236, 254,96,165, 251, 201,1,165,2 
52, 281,4,96,165,251 srem 53 
112@ DATA 281,232,165, 252, 233,7,96,234 srem 72 


Entering the POKEs can be done in the program, just 
before the machine language routine executes. Program 8-12 is 
a demonstration of a moving character using this routine. The 
required POKEs are already included in lines 10 through 40, 
including the BASIC loader statement in line 35 and the 
SYS(834) command in line 40. 


This is how the program works: 


Line Function 
10 Set background color to black and clear screen. 
20 Set pointers for screen and color memory locations 


for the character. Location 1279 was chosen as the 
screen memory starting location and the calcula- 
tions for each POKE statement were made on that 


basis. 

30 Set keys for movement. @ is up, = is right, : is 
left, and / is down. 

35 BASIC loader for machine language DATA. 

40 Access the machine language routine. 


1020-1120 Machine language DATA statements. 
Program 8-12. Fast Character Keyboard Demo 


Remember, do not type the checksum number at the end of each line. For example, do 
nat type “:rem 123,” Please read the article about the “Automatic Proofreader” in 
Appendix E. 


16 POKE 53281,9: PRINT" {CLR}” srem 141 
20 POKE 251,255:POKE 252,4:POKE 253, PEEK(251):POKE 
254, PEEK(252)+212 trem 143 
30 POKE 828,46:POKE 829,55:POKE 830,45:POKE 831,53 
:POKE 832,42:POKE 833,7 srem 169 
35 FOR X=834 TO 1014:READ A:POKE X,A:NEXT :rem 42 
49 SYS{834) srem 83 
58 GOTO 48 zrem 2 
219 
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1920 DATA 32,176,3,165,197,285,60,3,268,14,32,183, 


3, 32,228, 3,176,63, 32 srem 187 
103@ DATA 160,3,76,147,3,285,61,3,288,14,32,1698,3, 
32,237, 3,144, 44,32 trem 245 
1948 DATA 183,3,76,147,3,205,62,3,298,14,32,199,3, 
32,228,3,176,25, 32,217 trem 216 
1650 DATA 3,76,147,3,285,63,3, 288,14, 32,217,3,32,2 
37,3,144,6,32,199,3 trem 53 
1968 DATA 76,147,3,168,0,173,64,3,145, 251,173,65,3 
ry 145, 253, 96, 24, 165 :rem 24 


1878 DATA 251,185,48,133,251,133,253,144,4 s:rem 1 
1688 DATA 239,252,230, 254,96, 160,08,169, 32,145,251, 


96,56,165, 251,233,498 srem 128 
1998 DATA 133,251,133, 253,176, 4,198, 252,198,254, 96 
7165,251, 298,9,198, 251 rrem 254 
1198 DATA 198, 253,198, 252,198, 254, 96,198, 251,198, 2 
53,96,230,251,238, 253, 288 trem 154 
L11@ DATA 4,238,252, 230, 254, 96,165,251, 291,1,165,2 
52, 281,4,96,165, 251 srem 53 
112@ DATA 261,232,165, 252,233,7,96,234 trem 72 


Joystick-Controlled Character Routine 

This routine is much like the first keyboard-controlled machine 
language routine, Program 8-9. It places values into locations 
253 and 254 that allow you to calculate the new screen location 
of the character using the line: 


L=L+ PEEK(254) — PEEK(253) 


This routine also wiil place a value of 1 in location 80 if the fire 
button is pressed. You could use this by having the line: 


IF PEEK(80) =1 THEN PRINT “FIRE!” 


where the PRINT statement is replaced by whatever function 
you assign to the fire button. 

You'll still have to keep the character on the screen and 
erase the previous character image. The routine reads the joy- 
stick and returns the values needed to calculate the character’s 
new screen location. 

If you want to add the routine to your own program, 
simply enter the following program in the proper place. A 
SY5S(828) accesses this routine. 


Program 8-13. Joystick Character Loader and DATA 
1@ REM BASIC LOADER FOR JOYSTICK CONTROLLED CHARAC 


TER MACHINE LANGUAGE ROUTINE zrem 151 
2@ FOR X = 828 TO 973: READ A: POKE X, At NEXT 
trem 4 
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102@ DATA 173,1,226,74,176,48,74,74,176,11,169,0 


srem 52 

1638 DATA 133,254,169, 41,133,253, 76,182,3,74,176,1 
1,169,9,133, 254,169, 39 trem 238 

1946 DATA 133,253, 76,182,3,169,8,133, 254,169,489, 13 
3,253, 76,182,3,74,176 srem 178 

1958 DATA 39,74,176,11,169, 39,133, 254,169,8,133, 25 
3,76,182,3,74,176,11 srem 136 

1668 DATA 169,41,133, 254,169,%,133, 253, 76,182,3,16 
9,46,133,254,169,8 srem 26 

1076 DATA 133,253, 76,182,3,74,176,11,169,0,133, 254 
,169,1,133, 253, 76,182,3 srem 16 

1989 DATA 74,176,11,169,1,133, 254, 169,%,133,253, 76 
, 182,3,169,8,133,254 zrem 123 

1099 DATA 133, 253,173,1, 228,74, 74,74, 74,74,176,7,1 
69,1,133,89, 76, 2863,3 srem 126 

1108 DATAI69,@,133,88, 96,234, 234 trem 84 


The following demonstration program shows this machine 
language routine in action. It uses the same character as the 
first keyboard routine, as well as the same methods of keeping 
the character on the screen and moving the character. The only 
real difference is that the joystick plugged into port #1 is used 
instead of the keyboard. 


Program 8-14. Joystick Character Demo 


18 POKE 53281,8:PRINT" {CLR} {WHT}” zrem 146 
15 FOR X=828 TO 973:READ A:POKE X,A:NEXT z:rem 8 
26 L=1526:C=42:CM=54272:POKE L,C:POKE L+CM,7 
srem 213 
36 SYS(828) :R=PEEK( 254) -PEEK(253) srem 168 
46 IF R=8 THEN 30 trem 68 
56 L=L+R;POKE L-R,32:I1F L>2023 THEN L=2023 trem 21 
55 IF L<1024 THEN L=1824 :rem 199 
60 POKE L,C:POKE L+CM,? trem 35 
7B GOTO 39 trem 3 
19628 REM MACHINE LANGUAGE ROUTINE DATA trem 30 
1028 DATA 173,1,220,74,176,48, 74, 74,176,11,169,8 
rrem 52 
1839 DATA 133,254,169, 41,133, 253, 76,182,3,74,176,1 
1,169,0,133, 254,169, 39 trem 230 
1946 DATA 133, 253,76,182,3,169,6,133, 254, 169,48,13 
3,253, 76,182,3,74,176 srem 178 
1450 DATA 39, 74,176,11,169,39,133, 254, 169,8,133, 25 
3,76,182,3,74,176,11 :rem 136 
1660 DATA 169, 41,133, 254,169,0,133, 253, 76,182,3,16 
9,408,133, 254,169,9 rrem 26 
221 


EES Controlling Movement 


1970 DATA 133,253, 76,182,3,74,176,11,169,8,133, 254 


,169,1,133,253,76,182,3 srem 16 
1688 DATA 74,176,11,169,1,133,254,169,0,133, 253,76 
2182,3,169,9,133, 254 trem 123 
1898 DATA 133,253,173,1,228,74,74,74,74,74,176,7,1 
69,1,133,80,76, 283,3 srem 126 
1168 DATA169,0,133, 89, 96,234,234 trem 84 


Adding this expression as line 35 will show the results of 
pressing the fire button: 


IF PEEK(80) = 1 THEN PRINT “FIRE!” 


Run the program again, watching as you press the fire button. 
A message should display each time. 


Keyboard-Controlled Sprite-Movement Routine 
This machine language routine moves sprite 0 around the 
screen under the control of the keys you select. This routine 
uses wraparound at ail four edges of the screen and also allows 
the sprite to cross the seam. You can also designate a fire 
button key read from location 828. 

As in the previous examples, you have to assign the keys 
for each direction of movement. POKE the key code values of 
your keys into these locations: 


UP at 251 

DOWN at 252 

LEFT at 253 

RIGHT at 254 

FIRE BUTTON at 80 


The BASIC loader and DATA statements for this routine look 
like this: 

Program 8-15. BASIC Loader and DATA for Keyboard 
Sprite 

Remember, do not type the checksum number at the end of each line. For example, do 


not type “:rem 123.” Please read the article about the “Automatic Proofreader” in 
Appendix E. 


18 REM LOADER FOR KEYBOARD CONTROLLED SPRITE MACHI 


NE LANGUAGE ROUTINE rem 96 

26 FOR X= 830 TO 953: READ A: POKE X , Az: NEXT 
trem 251 
999 REM MACHINE LANGUAGE ROUTINE DATA :rem 8 
1928 DATA165,197, 197,251,208, 4, 266,1,208,96,197, 25 
2,288 trem 213 
1918 DATA4, 238,1,288,96,197,253, 208, 38,173,080, 268,2 
68,29,173,16, 268,41 srem 126 
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1028 DATA1, 208,14,173,16, 268,9,1,141,16, 288, 169,89 


7141,2, 288, 96, 173, 16 :rem 155 
103@ DATA268,41,254,141,16, 208, 296,8, 208, 96,197,25 
4, 208,42,238,8, 298, 248 :rem 5 
18948 DATA28,169, 80, 205,6, 208, 208, 286,173,16,208,41, 
1, 248,13,173,16, 2088 srem 98 
1958 DATA41,254,141,16, 298, 169,9,141,9,288,96,173, 
16, 268,9,1,141,16, 288 srem 283 
18968 DATA96, 197, 80, 208,6,169,1,141,69,3,96,169,8,1 
41,69,3, 96,234,234 trem 80 


Use SYS(830) to access this routine. 
A demonstration program using this machine language 
routine could look like this: 


Program 8-16. Keyboard-Controlled Sprite Demo 


Remember, do not type the checksum number at the end of each line. For example, do 
not type “:rem 123.” Please read the article about the “Automatic Proofreader” in 
Appendix E. 


18 POKE $3281, 0:V=53248:X=120: Y=126: PRINT" {CLR}" 

trem 37 
15 FOR X=83@ TO 953:READ A:POKE X,A:NEXT :s:rem 255 
26 FOR X=0@ TO 63:READ A:POKE 12288+X,A:NEXT 


srem 136 

30 POKE 2640,192 zrem 32 
40 POKE V+21,1 srem 212 
5@ POKE V+39,12 srem 14 
68 POKE V+9,xX srem 282 
7@ POKE V+l,Y trem 285 
8@ POKE 251,46:POKE 252,55:POKE 253,45:POKE 254,53 
:rem 141 

168 SYS(838)}:GOTO1LBD zrem 128 
999 REM MACHINE LANGUAGE ROUTINE DATA zrem 8 
1962 DATA165,197,197, 251, 208,4, 206,1, 208, 96,197,25 
2,268 trem 213 

1819 DATA4, 238,1, 288, 96,197, 253, 208, 38,173,8,288,2 
68, 29,173,16,288,41 srem 126 

1628 DATA], 208,14,173,16, 248,9,1,141,16, 298,169, 88 
,141,8,208,96,173,16 trem 155 

1030 DATA2@8, 41, 254,141,16, 268, 296,90, 208, 96,197, 25 
4,208,42, 238,606,298, 240 trem 5 

1049 DATA28, 169,80, 205,9, 208, 288, 26,173,16, 208,41, 
1, 248,13,173,16, 288 :rem 98 

105@ DATA41, 254,141,16,298,169,9,141,6, 268, 96,173, 
16, 208,9,1,141,16, 268 rrem 263 

1868 DATAS6, 197,88, 268,6,169,1,141,69,3,96,169,9,1 
41,69,3,96, 234,234 srem 82 
59999 REM SPRITE DATA :rem 238 
223 
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69600 DATA 0,8,6,0,8,9,7,255, 224,15, 255, 248, 25, 36, 
152,31, 255, 248,15,255 srem 127 
66918 DATA 248,7,255,224,%8,24,8,32,189,4,49,255,14 
%,43,255, 212, 36,69,36,48,24 srem 187 
699280 DATA 20,48, 36,12,32,98,4,8,189,6,1,126,128,3 
28,192,9,9,9,0,0,9,36,49, 24 srem 135 


The main movement loop is only one line, line 100. The rest of 
this program sets up the sprite parameters such as color, 
starting X and Y coordinate positions, pointers to memory, and 
sprite DATA information to draw the sprite. Line 80 POKEs in 
the desired keys for movement. The pattern @ = :/is used 
again. 

As with ail these machine language routines and demon- 
strations, you can use your own program lines instead of what 
appears here. For example, in the last program, you could 
replace the sprite DATA information in lines 60000-60020 with 
numbers which would draw a sprite of your own creation. 

Faster sprites. To speed up the sprite movement even 
more, you can make a few changes to the machine language 
routine’s BASIC loader and DATA statemerits. After you’ve 
entered these changes, you even have the option of deciding 
how fast the sprite will move across the screen. You can have it 
move one, two, three, or four pixels at a time. The more pixels 
it moves at once, the jerkier the motion seems to be. As with 
many other game design decisions, you may have to compro- 
mise, losing some grace in movement for speed. 

To move the sprite faster, you'll need to add one line and 
change two others. 

Add this line to the machine language DATA statements: 


1978 DATA 32,62,3,32,62,3,32,62,3,32,62,3,96 

Next, change the BASIC loader line to read: 

15 FOR X=838 TO 966:READ A:POKE X,A:NEXT 

This will include the 13 new DATA numbers in line 1070 when 
the machine language routine is READ and then executed. 


Finally, you need to change the SYS(830) command in line 
100 to reflect how fast you want the sprite to move. 
For a 4-pixel move, SYS(954) 
For a 3-pixel move, SYS(957) 
For a 2-pixel move, SYS(960) 
For a 1-pixel move, leave it at SYS(830) 
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Controlling Movement 


If you find that the fastest movement is too jumpy, simply 
change the SYS command to the desired speed. 


Joystick-Controlled Sprite Routine 

This is essentially the same as the previous machine language 
routine. The sprite is moved on the screen with a joystick 
controller, but it wraps around on all edges, as well as 
smoothly crosses the seam. Since you're using a joystick in 
this routine, the sprite will also move diagonally instead of just 
horizontally and vertically. However, the fire button is not read 
by this routine. To do that, you'll have to add the line: 


FB = PEEK(56321) AND 16:IF FB = 16 THEN PRINT “FIRE!” 


where the PRINT statement can be changed to whatever func- 
tion you want to assign to the fire button. 

The BASIC loader and DATA statements for the machine 
language program are: 


Program 8-17. Joystick Sprite BASIC Loader and 


DATA 
16 REM BASIC LOADER FOR JOYSTICK CONTROLLED SPRITE 
MACHINE LANGUAGE ROUTINE rrem 225 
28 FOR X=828 TO 936:READ A:POKE X,A:NEXT srem 3 
999 REM DATA FOR JS ROUTINE srem 74 
995 DATA 173,1,220,74,176,3,286,1,298,74,176,3,238 
1, 288,74,176,42,173 srem 134 
996 DATA @, 208, 268,31,173,16,208,41,1,208,16,173,1 
6,208,9,1,141,16, 288 trem 114 
997 DATA 169,88,141,9, 298,96, 234, 234,173,16, 268,41 
,254,141,16, 268, 296 srem 87 
998 DATA 0, 208,96, 234, 234, 74,176, 32,238,8,208, 248, 
38,169,980, 205,08, 208 srem 82 
999 DATA 208, 20,173,116, 208,41,1,248,13,173,16, 208, 
41, 254,141,16, 268,169 :rem 172 
106@ DATA @,141,6,208,96, 234, 234,173,16, 298,9,1,14 
1,16, 208,96, 234,234 srem 54 


The routine is accessed with a SYS(828). 

The demonstration program uses the same sprite as 
Program 8-16, so you may want to simply LOAD that program 
into your computer and change only the BASIC loader line (line 
15) and the lines of machine language DATA statements (lines 
990-1000). 

Program 8-18 shows the machine language routine 
moving a sprite around the screen with a joystick controller. 
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Program 8-18. Joystick Sprite Demo 


Remember, do not type the checksum number at the end of each line. For example, do 
not type “:rem 123.” Please read the article about the “Automatic Proofreader” in 


Appendix E. 
18 POKE 53281,9:PRINT"{CLR}":V=53248:X=120:Y=126 
trem 37 
15 FOR X=828 TO 936:READ A:POKE X,A:NEXT rem 7 
28 FOR X=@ TO 63:READ A:POKE 12288+X,A:NEXT 
srem 136 
3@ POKE 2049,192 rem 32 
49 POKE V+21,1 trem 212 
58 POKE V+39,16 z:rem 14 
68 POKE V+d,X srem 202 
7@ POKE V+1,Y trem 205 
88 FOR T=6 TO 190@0:SYS(828)}:NEXT:GOTO 80 :rem 244 
998 REM DATA FOR JS ROUTINE srem 74 
995 DATA 173,1,226,74,176,3,266,1,288, 74,176,3,238 
71,288, 74,176,42,173 :rem 134 
996 DATA 6, 208, 208, 31,173,16, 288,41,1,288,16,173,1 
6, 208,9,1,141,16, 208 :rem 114 
997 DATA 169,84,141,0, 288, 96,234, 234,173,116, 208,41 
+ 254,141,16, 268, 286 trem 87 
998 DATA @, 268,96, 234,234, 74,176, 32, 238,8, 208, 2428, 
39,169,88,205,6,208 srem 82 
999 DATA 288, 20,173,16, 208, 41,1,240,13,173,16, 268, 
41,254,141,16, 288,169 zrem 172 
1080 DATA %,141,9,208,96,234, 234,173,16,288,9,1,14 
1,16, 268,96,234,234 zrem 54 
59999 REM SPRITE DATA trem 238 
60808 DATAG,9,0,20,9,8,7,255,224,15, 255, 246, 25, 36,1 
52,31,255, 248,15, 255 trem 127 
609146 DATA 249,7,255,224,6,24,9, 32,189,4,49, 255,14 
6,43,255,212, 36,60, 36,40, 24 trem 187 
60026 DATA 26,48, 36,12, 32,90,4,8,189,0,1,126,128,3 
7@,192,8,0,9,9,8,0,36,48, 24 zrem 135 


Both routines for moving sprites allow the sprite to smoothly 
cross the seam on the screen. This is one of the advantages of 
using machine language movement routines when sprites are 
needed in your game. 


Even faster sprites. As with the keyboard-controlled 


sprites, you can make the sprite move even faster by adding a 


line 


to the machine language DATA statements and changing 


two lines in the demonstration program. You'll still have the 
option of four different speeds for the sprite. 
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1918 DATA 32,66,3,32,686,3,32,68,3,32,60,3,96 


To insure that these additional numbers are POKEd into 
the 64’s memory, change line 15 to read: 


15 FOR X=828 TO 949:READ A:POKE X,A:NEXT 


Setting the sprite’s speed is a matter of using the correct 
SYS command. Change line 80 as follows: 


For a 4-pixel move, SYS(937) 
For a 3-pixel move, SYS(940) 
For a 2-pixel move, SYS(943) 
For a 1-pixel move, leave it at SYS(828) 


All of the machine language subroutines listed up to now 
have moved only one sprite. What if you want to use two 
player-controlled sprites, using both of the Commodore 64’s 
joystick ports, and want the speed of machine language? 

Gregg Peele, assistant programming supervisor at 
COMPUTE! Publications, has written an excellent machine lan- 
guage routine which moves two sprites, one with each joystick. 
All the sprite movement calculations are done by the routine, 
including checking for the seam and keeping the sprites on the 
screen. The demonstration of this routine even creates two 
block-shaped sprites for you to move across the screen. Of 
course, you can enter DATA information for your own sprites, 
as well as select the sprites’ colors. By placing this routine in 
your own program, you'll have the ability to use both joysticks 
to control sprites. Although writing a two-player game is 
somewhat more difficult, this routine will make it much 
simpler. 


Program 8-19. Two-Sprite Joystick Routine 


Remember, do not type the checksum number at the end of each line. For example, do 
not type “rem 123,” Please read the article about the “Automatic Proofreader” in 
Appendix E. 


40960 FORT=12288T012288+1 28: POKET, 255:NEXT:REM ADD 


SPRITE DATA HERE srem 217 

406190 I=49152 trem 128 

49026 READ A:IF A=256 THEN49649 trem 94 

4093@ POKE I,AsI=I+1:CK=CK+A:GOTO49029 rrem 169 

40849 IFCK<>71433THENPRINT"{CLR}JERROR IN DATA STAT 

EMENTS" s END :rem 128 
49258 INPUT "COLOR FOR SPRITES";C@:POKE49228, Ca 

:rem 249 
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40960 INPUT "COLOR FOR SPRITE1";C1l;:POKE49233,Cl 


trem 249 
49979 SYS49152 trem 255 
49152 DATA 169,125,141, 224, 267,169,9 trem 246 
49169 DATA 141,225, 207,169,125,141,226 srem 86 
49168 DATA 207,169,6,141, 227, 287,169 trem 1 
49176 DATA 125,141,8,208,141,1, 298 trem 134 
49184 DATA 141,2,288,141,3, 288,169 srem 145 
49192 DATA 9,141,16, 208,128,169, 52 srem 148 
49200 DATA 141,20,3,169,192,141,21 trem 129 
492868 DATA 3,88,96,162,0,32,65 zrem 212 
49216 DATA 192,162,1,32,65,192, 76 trem 103 
49224 DATA 49,234,169,3,141,21, 288 trem 147 
49232 DATA 169,192,141, 248,7,169,1 trem 158 
49240 DATA 141,39, 208,169,2,141,46 trem 141] 
49248 DATA 268,169,193,141,249,7,189 trem 18 
49256 DATA 6,2206,41,15,157, 228, 267 trem 141 
49264 DATA 56,169,15, 253,228, 207,157 trem 8 
49272 DATA 232, 2807,168,8, 208,152,221 trem 224 
49289 DATA 232,287,298, 249,224,1,288 trem 245 
49288 DATA 2,162,2,152,18,168,185 trem 188 
49296 DATA 135,192,72,185,134,192,72 trem 9 
49304 DATA 96,1,194,213,193,217,193 trem 286 
49312 DATA 1,194, 225,193, 229,193,236 srem 255 
49320 DATA 193,1,194, 221,193, 258,193 trem 246 
49328 DATA 243,193,1,194,169,58, 221 trem 283 
49336 DATA 1,268,176,12,189,1,268 :rem 18 
49344 DATA 56,189,1, 248, 233,1,157 srem 104 
49352 DATA 1,208, 96,169, 229,221,1 srem 182 
49366 DATA 208,144,12,189,1,208,24 srem 145 
49368 DATA 189,1,208,185,1,157,1 rrem 58 
49376 DATA 288,96,56,189, 224, 207,233 rrem 14 
49384 DATA 65,157, 228, 267,189,225, 207 zrem 63 
49392 DATA 233,1,29, 228, 287,144,13 srem 147 
49400 DATA 169,65,157, 224, 207,169,1 trem 285 
49498 DATA 157,225, 207, 76,247,192,24 trem 6 
49416 DATA 189, 224, 207,105,1,157,224 srem 249 
49424 DATA 287,189,225, 207,1985,8,157 srem 249 
49432 DATA 225, 207,56,199,224, 267,233 srem 48 
49449 DATA 0,157,228, 287,189,225, 287 trem 253 
49448 DATA 233,1,29,228, 207,144,19 trem 155 
49456 DATA 224,2,246,34,173,16,288 :rem 145 
49464 DATA 9,1,141,16, 208,189,224 rrem 104 
49472 DATA 207,157,9,2808,96,224,2 srem 101 
49480 DATA 248,38,173,16, 288,41, 254 zrem 192 
49488 DATA 141,16, 208,189,224, 207,157 srem 58 
49496 DATA 0, 288,96,173,16,288,9 trem 64 
49504 DATA 2,141,16, 288,189,224, 287 :rem 196 
49512 DATA 157,06, 288,96,173,16, 298 trem 153 
49526 DATA 41,253,141,16, 268,189,224 srem 246 
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267,157,8,208,96,56,189 
224, 287, 233,25,157,228, 287 
189, 225, 287, 233,8,29,228 
207,176,13,169, 24,157,224 
287,169,0,157,225, 287,76 
127,193,56,189,224, 207,233 
1,157,224, 207,189, 225, 207 
233,0,157,225,287,56,189 
224, 267, 233,8,157, 228, 287 
189,225, 287, 233,1,29, 228 
207,144,19,224,2, 246,34 
173,16, 288,9,1,141,16 
298,189, 224, 287,157,0, 288 
96,224, 2, 249, 38,173,16 
208,41, 254,141,16, 288,189 
224, 207,157,8, 298,96,173 
16, 298,9,2,141,16, 288 
189,224, 267,157,8, 288,96 
173,16, 288,41, 253,141,16 
288,189,224, 207,157,989, 268 
96,32,158,192,96, 32,178 
192,96, 32,198,192,96,32 
78,193, 96,32,158,192,32 
78,193,96, 32,178,192, 32 
78,193,96,32,178,192,32 
198, 192,96, 32,158,192, 32 
198,192, 96,96, 256 


trem 176 
zrem 47 
:rem 207 

zrem 1 
srem 287 
trem 63 

trem 4 
srem 212 
sxem 250 
srem 261 
zrem 144 
trem 47 
trem 255 
:rem 94 
trem 252 
trem 211 
trem 51 
srem 216 
:rem 1993 

trem 1 
trem 183 
:rem 182 
srem 169 
srem 170 
trem 169 
rrem 225 
trem 144 


This machine language routine is accessed with a SY5(49152), 
which is where the DATA begins. You'll recognize the BASIC 
loader line and the sprite setup lines in the beginning of the 
routine. The only thing you have to do when you use this 
routine is select the color for each sprite. The routine asks for 
this information in lines 40050 and 40060. Everything else is 


done for you. 


You can even change the sprites’ colors as the program 
RUNs. All you have to do is press RUN/STOP and POKE a 
new color value into location 49228 for sprite 0, or location 
49233 for sprite 1. The sprite color will instantly change. For 
example, POKEing 49228, 14 changes sprite 0 to light blue. 


It’s Not Pong, But Why Not Use Paddles? 


A game controller often overlooked, perhaps because it has 
been in use so long, is a set of game paddles. First introduced 
as controllers for the first real videogame, Pong, they can be 
useful in many kinds of arcade-style games. 
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Game paddles are somewhat like the volume or tone 
controls on a radio. The paddle varies the resistance conducted 
on the wire it’s connected to. 

They can be used for a variety of purposes. When they are 
hooked up to the 64 and the right program is in place, the 
paddles generate numbers as they are twisted to the left or to 
the right. Twisting the paddle to one side results in the value of 
255, while twisting to the other produces a value of 0. How 
these values are used depends on your decisions and the 
program you write or use. 

The most popular use of a paddle is for character or sprite 
movement. A paddle is particularly suited for sprite move- 
ment, since the sprite positions, ranging from 0 to 255, are the 
same as the values created by the paddles. 

A machine language routine is the best way to program 
paddle controls. Using BASIC is quite difficult when program- 
ming paddles, since they cannot be read accurately unless a 
machine language routine is in place. BASIC is just too slow for 
game paddle controllers. 

Here’s a machine language BASIC loader and DATA state- 
ments which will allow you to use game paddles as controllers. 
The routine will read one or two sets of paddles, as well as 
their fire buttons. After this routine has been called with a 
SYS(840), you'll find the following information in these 
memory locations: 


Location Data 

830 Value (0 to 255) of position of paddle A plugged into 
port #1. 

832 Value of position of paddle B plugged into port #1. 

829 Fire button for both paddles in port #1. A value of 
251 indicates paddle A’s fire button is pressed, 247 
means paddle B’s fire button is pressed, and a value 
of 243 indicates both paddles’ fire buttons are 
pressed. 

831 Value of position of paddle A plugged into port #2. 

833 Value of position of paddle B plugged into port #2. 

828 Fire button indicator for paddles plugged into port 
#2. The values returned are the same as those for 
port #1. 
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Program 8-20. Paddle BASIC Loader and DATA 
Statements 
5 REM BASIC LOADER FOR GAME PADDLE MACHINE LANGUAG 


E READ ROUTINE :rem 88 
1@ FOR X = 84@ TO 993: READ A: POKE X, A: NEXT 

srem 246 

118 DATA162,1,12@,173,2,226,141,78,3,169,192,141,2 

2 220,169,128,141,@ trem 31 

126 DATA 226,168,128, 234,136,16,252,173,25,212,157 

,62,3,173,26,212,157,64 srem 6 

130 DATA 3,173,@,220,9,128,141,68,3, 169,64, 282,16, 

222,173,79,3,141,2,226 srem 179 

148 DATA 173,1,220,141,61,3,88,96 :rem 82 


By adding this machine language routine to your own 
program, you can use game paddles to move characters or 
sprites across the screen. The following demonstration 
program creates a sprite, uses the SYS(840) to call the machine 
language routine, and uses the paddles to move the sprite 
about the screen. Paddle A moves the sprite horizontally, while 
paddle B moves it vertically. The paddles should be plugged 
into port #1. 


Program 8-21. Paddle-Controlled Sprite Movement 


Remember, do not type the checksum number at the end of each line. For example, do 
not type “:rem 123.” Please read the article about the “Automatic Proofreader” in 
Appendix E. 


5 REM PADDLE CONTROLLED SPRITE DEMO trem 181 

6 REM USES PORT 1, ONE PADDLE CONTROLS X POSTION A 

ND OTHER CONTROLS Y POSTION srem 206 

7 REM FIRE BUTTON NOT INCLUDED zrem 86 
18 POKE 53281,0:V=53248:X=120:Y=120:PRINT"({CLR}"* 

:rem 37 


15 FOR X=848 TO 993:READ A:POKE X,A:NEXT :rem 251 
2@ FOR X=6 TO 63:READ A:POKE 12288+X,A:NEXT 


zrem 136 

38 POKE 2846,192 trem 32 
4@ POKE V+21,1 rrem 212 
58 POKE V+39,16 srem 14 
68 SYs(842) trem 82 
7@ POKE V,PEEK(836):POKE V+l1, Sea srem 131 
98 GOTO 69 trem 8 
185 REM MACHINE LANGUAGE DATA trem 205 
118 DATA162,1,129,173,2,220,141,78,3,169,192,141,2 
, 228,169,128,141,8 srem 31 

120 DATA 220,160,128, 234,136,16,252,173,25,212,157 
»62,3,173,26,212,157,64 :rem 2 
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130 DATA 3,173,8,228,9,128,141,68,3,169,64, 282,16, 


222,173,78,3,141,2, 228 trem 179 

149 DATA 173,1,228,141,61,3,88,96 srem 82 
59999 REM SPRITE DATA :rem 238 
609060 DATA 9,0,0,9,0,8,7,255,224,15,255,246,25,36, 
152,31, 255, 248,15, 255 srem 127 

60010 DATA 246,7,255,224,8,24,8,32,189,4,49,255,14 
@,43,255,212, 36,68, 36,48, 24 srem 187 

60620 DATA 26,48,36,12,32,99,4,8,189,0,1,126,128,3 
,9,192,9,6,9,9,9,8,36,40, 24 rrem 135 


Fast-moving sprite, isn’t it? Notice that the seam is not 
crossed. If you wanted to move the sprite in only one direc- 
tion, more like Pong, you could add one line and change one 
other. 

Add this line: 

55 POKE V,X 

and change line 70 to: 

7 POKE V+l,PEEK(832) 

Now the sprite will move only vertically. The sprite jiggles less, 
too. This is something peculiar to game paddle controllers, 
since they are sometimes just between two numbers and 
trying to generate both numbers at once. 
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When Pac-Man eats dots, points get added to the score and the 
dot disappears; when he eats a power dot, the ghosts change 
color for a while. When Pac-Man touches a ghost, he dies— 
unless he recently ate a power dot. Most of the things that 
happen in a videogame happen because something on the 
screen bumped into something else. 

There are other things that can cause changes. In Donkey 
Kong, for instance, if it takes you too long to get to the top of 
the screen, you run out of time and Mario wipes out. In most 
games, if your score reaches a certain level you get a bonus 
player-figure, an extra turn. But these are rare exceptions: the 
overwhelming majority of events are caused by collisions. 


Checking for Character Collisions 

Checking for collisions between characters is really very 
simple. All you have to do to see if your figure is touching 
something is PEEK at the address in screen memory where the 
figure is about to be PRINTed or POKEd and see what's there. 

Remember in Chapter 5 when we created a scrolling 
screen display made of flickering stars, with a starship moving 
through? Let's turn that into a playable game now, by moving 
the starship around on it using the wraparound movement 
routine from Chapter 8. We'll use the Commodore and SHIFT 
keys for left/right movement, and f5 and f7 for up/down move- 
ment. But before we move the starship, we'll check to see if 
there’s something in the place where the spaceship is trying to 
go. If we PEEK that location and get any number but 32, we'll 
know that the starship is colliding with something. Then the 
program will jump to a collision-handling routine and decide 
what to do next. 

What's the story? Let's say that our spaceship is on a fuel- 
gathering mission. It needs to visit large nova stars, to gather 
rare gases from the clouds surrounding them. Unfortunately, if 
the spaceship passes too close to regular, smaller stars, it 
suffers damage—too many such incidents before the spaceship 
reaches a space station for repairs and refitting will cause the 
spaceship to malfunction, and the crew will have to abandon 
it. ae 
How does this story translate into collision handling? 
Collision handling. First, we'll keep score. Every time the 
ship collides with a small star, the player loses points. Also, it 
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will come one step closer to destruction, which is signified by 
changing the spaceship’s color from red to cyan, purple, green, 
and so on. 

Every time the ship collides with a nova (large star), the 
player wins points, and the nova, all its important gases 
stripped away, appears on the screen as a small star. 

When the starship collides with a twirling space station, it 
is refitted and starts again with a red color. It gets no addi- 
tional points. 

When the spaceship moves onto a small star or the space 
station, the program must “pick up” the star and then put it 
back when the spaceship leaves. With the novas, however, 
since the spaceship has picked up all the gases surrounding 
them, the program will put a small star in their place when the 
spaceship moves away. 


How Collision Handling Works: 


Line Function 

230 If the character stored at the new location is some- 
thing other than a blank (32), go to the Collision 
Routine at 700. 


280 POKE the player-figure and its color into screen 
memory and color memory. If the color is greater 
than 9, the player-figure has collided with too many 
small stars—jump to the end routine at 900. 

640 PRINT the updated score at the top of the screen. 
(Notice that the program PRINTs STR$ (P) instead of 
simply PRINTing P. This is because the 64 automati- 
cally skips a space after PRINTing numeric variables. 
If a number was already in that space, it will be left 
there, which makes the score inaccurate if the 
number of digits in the score changes. Perhaps the 
best way to see how this works is to change the state- 
ment to PRENT “{HOME}”TAB(8)P” POINTS =“ 
and see what happens.) 

700-730 Collision Routine. There are four possible collisions. 

If the spaceship has collided with a small star (28), 
the score (P) is decreased by 100, and NC, the space- 
ship's color, is increased by one. 

If the spaceship has collided with a new space 
station (27), NC, the spaceship’s color, is set back to 
2. Then W is set to 104, a “used” space station, so 
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that it can’t be used again. 

If the spaceship has collided with a used space 
station (30), nothing happens. 

If the spaceship has collided with a nova (the only 
other possibility), the score is increased, with greater 
increases at the higher difficulty levels and at lower 
positions on the screen. W is then set to 28, a small 
star, so that it becomes another obstacle to the 
spaceship. 

End Routine. This routine makes the spaceship flash 
through the colors, prints the final score, and exits 
the game. 


Program 9-1. Mission: Nova! 


Remember, do not type the checksum number at the end of each line. For example, do 
not type “:rem 123.” Please read the article about the “Automatic Proofreader” in 


Appendix E. 
1@ DIM CcC{1},CH(1),CB(1} trem 175 
17 REM srem 76 
18 REM SET MEMORY VARIABLES srem 171 
19 REM srem 78 
28 CC(@)=12:0C(1)=14:VB=32768 : VM=VB/256:SB=128:SC= 
SB* 256 :CM=55296 srem 166 
38 FOR I=@ TO 1:CH(1)=21024*CC(1I)+VB:CB(I)=CC(1I)+16 
*(SB-VM) :NEXT :rem 229 
37 REM srem 78 
38 REM SET VIDEO, SCREEN, & CHAR BLOCKS :rem 204 
39 REM trem 8d 
4@ POKE 648,SB:POKE 56578, PEEK(56578)OR 3:POKE5657 
6, (PEEK(56576)AND252)OR 1 srem 167 
5@ PRINT "{CLR}JUST A MOMENT, PLEASE... .” 
rem 144 
57 REM :rem 88 
58 REM SET UP CHAR SET, SCREEN, STRING srem 219 
59 REM srem 82 
68 GOSUB 1180:GOSUB 498:GOSUB 500 srem 69 
67 REM trem 81 
68 REM SET UP INITIAL SCREEN POSITIONS trem 117 
69 REM trem 83 
78 PG=321 :0C=1] sNC=2 :Q=3 :QQ=0Q4+1:GOSUB 8490 trem 28 
88 NH=7 sNV=7 :C=NH+NV* 49 sW=32 :SS=27:CS=2:TS=0 
zrem 183 
96 GOTO 2946 rem 61 
97 REM trem 84 
98 REM MAIN LOOP rrem 183 
99 REM z:rem 86 
190 A=PEEK(653)AND3 :B=PEEK(197)} srem 249 
237 
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197 REM trem 124 
188 REM TIME TO SCROLL? :rem 93 
109 REM :rem 126 
118 IF VAL(TI$)>Q THEN GOSUB 686 :rem 234 
117 REM :rem 125 
118 REM ANIMATE THE SCREEN rem 3@ 
119 REM rrem 127 
12@ K=-(K=9):POKE 53272,CB{K) trem 1¢ 
187 REM srem 132 
188 REM IF NO MOVEMENT, THEN REPEAT rem 56 
189 REM rrem 134 
198 H={A>1}-(A=1):V=(B=6)-(B=3):IF H=@ AND V=6 THE 
N 10% :rem 36 
197 REM :rem 133 
198 REM MOVEMENT LOOP ‘rem 43 
199 REM :rem 135 
206 NH=OH+H+39*((OH=38 AND H=1)-(OH=@ AND H=-1)) 
rrem 219 
218 NV=OV+V+(OV=24 AND V=1)-(OV=1 AND V=-l):rem 74 
217 REM srem 126 
218 REM RESTORE VALUE AT OLD LOCATION z:rem 237 
219 REM srem 128 
228 POKE CM+C,0C:POKE SC+C,W:C=NH+NV* 40 srem 28 
227 REM zrem 127 
228 REM COLLISION? zrem 187 
229 REM srem 129 
230 W=PEEK(SC+C):IF W<¢>32 THEN GOSUB 780 :rem 232 
277 REM trem 132 
278 REM POKE SHIP IN NEW LOCATION srem 194 
279 REM srem 134 
28@ POKE CM+C,NC:POKE SC+C,FG:IF NC>9 THEN 989 
srem 67 
299 OH=NH:OV=NV:GOTO 186 srem 291 
397 REM rem 135 
398 REM SET UP STRING OF RANDOM STARS srem 211 
399 REM rem 137 
496 TS="":FOR I=8 TO 254:T=32 rem 210 
410 IF INT(RND(9)*7)<1 THEN T=92:IF INT(RND(9)*5)< 
1 THEN T=93 srem 56 
426 TS=TS+CHRS (T}:NEXT srem 13 
438 MS=CHRS$(19):FOR I=@ TO 24:M$=M$+CHRS$(17) :NEXT: 
RETURN srem 178 
497 REM srem 136 
498 REM CREATE RANDOM STARFIELD srem 156 
499 REM srem 138 
58@ POKE 53281,9:POKE 53289,@:PRINT “{WHT}{CLR}“ 
:rem 141 
565 FOR I=CM TO CM+999:POKE I,1:NEXT srem 40 
510 Q=108*RND(9)+20:Q1=6*RND(9) +2 rrem 254 
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FOR I=8 TO Q:X=1908*RND(9) :N=28:GOSUB 549:NEXT 


srem 75 
FOR I=@ TO Q1:X=100@*RND(9}:N=29:GOSUB 548;NEX 
T:RETURN zrem 152 
POKE SC+X,N: RETURN rem 117 
REM :rem 137 
REM SCROLL THE SCREEN rem 258 
REM :rem 139 
POKE SC+C,W:POKE CM+C,0C:T=1+INT( RND(9)*167) 
:rem 12 
PRINT MS;MIDS(TS,T, 4@* INT(QQ-Q)-1); :P=P-INT{(7* 
Q):GOSUB 88a srem 74 
REM srem 132 
REM COLLISION? srem 118 
REM :rem 132 
OC=PEEK(CM+C)} :W=PEEK(SC+C):IF W<>32 THEN GOSUB 
7068 rrem 184 
REM trem 131 
REM RESTORE STARSHIP TO PLACE srem 38 
REM :rem 133 
POKE SC+C,FG:POKE CM+C,NC rrem 169 
REM trem 132 
REM DISPLAY SCORE rrem 23 
REM :rem 134 
PRINT “{HOME}"TAB(18)STRS$(P)" PoINTs{3 SPACES} 
“ trem 238 
REM :rem 133 
REM TIME FOR A SPACE STATION? trem 173 
REM srem 135 
TS=TS+1:1F TS>18*(QQ-Q)THEN GOSUB 858 :rem 120 
REM s:rem 134 
REM TOO MANY SHIPS LOST? trem 182 
REM srem 136 
IF NC>9 THEN 986 . zrem 251 
RETURN :rem 127 
REM :rem 136 
REM COLLISION HANDLING ROUTINE srem 169 
REM trem 138 
REM SMALL STAR srem 62 
REM srem 148 
IF W=28 THEN P=P-180:NC=NC+1 : RETURN srem 253 
REM trem 138 
REM SPACE STATION srem 17 
REM :rem 132 
IF W=27 THEN NC=CS:W=30: RETURN rrem 2 
REM srem 131 
REM USED SPACE STATION srem 67 
REM :rem 133 
IF W=3@ THEN RETURN srem 46 
239 
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727 REM trem 132 
728 REM NOVA! srem 218 
729 REM srem 134 
738 p=P+(8*NH)*INT(QQ-Q) :W=28 : RETURN trem 195 
797 REM :rem 139 
798 REM RESET TIMER srem 144 
799 REM srem 141 
B88 TIS="GIGGIS" :Q=99* (0/100): RETURN trem 218 
847 REM :rem 135 
848 REM GENERATE SPACE STATION srem 97 
849 REM :rem 137 
850 TS=8:T2=1001-INT( RND(9)*48):POKE SC+T2,SS:POKE 
CM+T2 ,CS+:RETURN rem 221 
897 REM zrem 148 
898 REM ENDING ROUTINE :rem 164 
899 REM zrem 142 
999 FOR I=@ TO 20:FOR X=8 TO 7:POKE CM+C,X:NEXT:NE 
XT :rem 216 
919 PRINT "“{CLR}"P" POINTS":PRINT:PRINT:PRINT “THE 
END" : END srem 209 
1897 REM trem 181 
1998 REM INITIALIZE CHARACTER SET rem 33 
1999 REM zrem 183 
1108 POKE 56334, PREEK(56334)AND 254:POKE 1,PEEK(1)A 
ND 251:POKE 657,98 :rem 74 
1118 FOR I=@ TO 1:RM=53248-CH(I) srem 162 
1128 FOR J=CH(I) TO CH(I)+511:POKE J, PEEK(J+RM):NE 
XT:NEXT rem 62 
1130 FOR I=8 TO 1:FOR J=27 TO 31:FOR K=@ TO 7 
:rem 1 
1148 READ N:POKE CH(I)+8*J+K,N:NEXT:NEXT:NEXT 
rem 2498 
1158 POKE 1,PEEK(1JOR 4:POKE 56334, PEEK({56334)OR 1 
srem 182 
1160 POKE 53272,CB(@)+RETURN srem 72 
1297 REM :rem 183 
1298 REM CHARACTER DATA srem 95 
1299 REM z:rem 185 
1306 DATA 24,12,14,12,48,112,48, 24 srem 117 
1314 DATA 8$,9,40,16,40,0,9,8 trem 59 
1328 DATA 9,68,126,126,126,126,69,8 srem 164 
133@ DATA 6,32,116,249,159,46,4,0 srem 78 
1348 DATA 213,137,153, 255,153, 24, 24,36 r:rem 72 
135@ DATA @,32,112,241,143,14,4,8 srem 56 
1360 DATA 6,0,16,48,16,9,8,¢ trem 58 
13703 DATA 0,66,60,69,68,69,66,@ srem 233 
1380 DATA @,32,112,241,143,14,4,8 trem 59 
1399 DATA 2@3,145,153,255,153,24,24,36 trem 77 
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Star-Eater 

Here's a simple gobble game. You are a hungry mouth, out to 
eat stars. You get points for eating them. The trouble is, each 
one you eat turns into a flickering fire—and if you accidentally 
burn yourself at a fire, you Jose points. Also, every fire you 
touch turns into a boulder, which you can’t get past. Your task 
is to eat as many stars as you can before time runs out. You can 
wrap around the screen both horizontally and vertically; left- 
right movement is done with the SHIFT and Commodore keys, 
and up-down movement is done with f5 and f7. You can move 
diagonally. 

With what you already know about game programming, 
you should have little trouble figuring out exactly what's going 
on. Lines 5-55 are Initialization; lines 100-190 are the Main 
Loop; lines 200-290 are the Movement Loop; lines 300-350 are 
the End Routine; lines 600-620 are the Set Level Subroutine; 
and lines 700-730 are the Collision Routine. It’s all familiar 
ground. 

Let me just call your attention to a few details. 

Notice the variable M. During initialization, it is set to the 
total number of stars on the screen by adding 1 to M each time 
a star is POKEd to the screen (that is, each time the random 
number X is a 3). Then, during the Collision Routine, M is 
decreased by 1 each time the player eats a star. This means that 
when the last star is eaten, M will equal zero—and that is one 
of the conditions that will end the game. Upon entering the 
End Routine at line 300, you get different messages, 
depending on whether or not you ate all the stars. 

Another new feature is the choice of levels. At the begin- 
ning of the game, you are asked what level you want. This is 
accomplished in the subroutine starting at line 600. If you 
choose “easy,” the variable N is set to 300; 200 if you choose 
“hard”; and 100 if you choose “superhuman.” 

Notice how this variable is used throughout the program. 
In the Collision Routine, the score is added to by an amount 
equal to N minus the current value of the timer (TI$), but when 
the player touches a fire, the score is subtracted from by an 
amount equal to TI$. That means that the farther you get in the 
game, the fewer points you get for each star you eat, and the 
more points you lose for each fire you touch. 

Also, the “TIME” message at the top of the screen (see line 
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100) tells you how much time you have left. The countdown is 
created by subtracting TI$ from N. And if you don’t eat all the 
stars before the timer reaches the value of N, the game ends— 
with a different message at line 300. 


Program 9-2. Star-Eater 


Remember, do not type the checksum number at the end of each line. For example, do 
not type “:rem 123.” Please read the article about the “Automatic Proofreader” in 
Appendix E. 


5 DIM CH(3),CL(3),CC(1},CB(1),CM(1}:CH(@)=192:CH(1 


}=32:CH(2)=43:CH(3}=42 :rem 217 
18 CL(@)=8:CL(1)=9:CL(2}=8:CL(3)}=1 rem 27 
15 SC=PEEK(648) :CM=552964+256*(SC AND2):SC=SC*256:P 

OKE 53281,9:POKE 53288,11 :rem 117 
28 PRINT “{BLK}{CLR}“:FG=81:CF=4:M=9:GOSUB 6046 

zrem 59 
25 FOR I=40 TO 999;:X=INT(RND(1)*4) :M=M-(X=3} 
trem 172 
38 POKE SC+I,CH(X):POKE CM+I,CL(X}:NEXT srem 79 
35 TI$="688008" :OH=10:0V=10: FL=OH+0V*48:0C=CL(1):W 
=CH(1) zrem 169 
49 POKE SC+FL,FG:POKE CM+FL,CF trem 16 
45 CC(#)=12:CC(1)=14:CM=55296:FOR I=G TO 1:CM(I)=1 
624*CC(1) s:NEXT trem 229 
5@ FOR I=8 TO 1:CM{1I)=1824*CC(1) :CB(I)=( PEEK( 53272 
JAND 248)OR CC(I}:NEXT trem 139 
55 GOSUB 11698 :rem 172 
108 PRINT “{HOME]SCORE "STRS(P)" TIME “STRS (N-VAL( 
TIs))" " :rem 63 
118 A=PEEK(653)AND3:B=PEEK({197) trem 258 
12@ IF VAL(TIS$)>N OR M=@ THEN 380 srem 192 
138 Ke~(K=@):POKE 53272,CB(K) zrem 11 
198 H=(A>1)~(A=1):V=(B=6)-(B=3):IF H=8 AND V=@ THE 
N 106 srem 36 
298 NH=OH+H+40*((OH=39 AND H=1)-(OH=0 AND H==-1)) 
:rem 283 
216 NV=OV+V+24*( (OV=24 AND V=1}-(OV=1 AND V=-1)) 
trem 43 
220 POKE SC+FL,W:POKE CM+FL,0C:FL=NH+NV*40:E=W 
trem 28 
238 W=PEEK(SC+FL) :OC=PEEK(CM+FL):IF W<>32 THEN GOS 
UB 700 trem 3 
288 POKE CM+PL,CF:POKE SC+FL,FG trem 64 
298 OH=NH:OV=NV:GOTO 193 srem 241 
388 PRINT "{CLR}"sIF M=@ THEN SH=N-VAL({TIS):P=P+190 
@B6*SH:GOTO 32a trem 193 
318 PRINT "TIME'S UP|]“:PRINT “STARS LEFT: "M:GOTO 
{SPACE}325 srem 43 
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32G PRINT “YOU GOT ALL THE STARS!I":PRINT “TIME LEF 

T: "N-VAL(TIS$) srem 196 

325 PRINT "SCORE: "P srem 113 

336 PRINT"{3 DOWN}PLAY AGAIN? (Y OR N)}" srem 8 

34@ B=PEEK(197):IF B=39 THEN END zrem 231 

345 IF B=25 THEN RUN srem 53 

358 GOTO 349 :rem 104 

686 PRINT "{6 SPACES]STAR-EATER":PRINT "{2 DOWN } CH 

OOSE YOUR LEVEL:" srem 46 

665 PRINT "1 - EASY"“:PRINT “2 - HARD":PRINT "3 - S 

UPERHUMAN" srem 248 

616 N=PEEK(197):IF N=64 THEN 612 trem 189 

628 N=490+120* (N=59)+250*(N=8}:PRINT "{CLR}"sRETUR 

N ¢rem 161 

708 IF W=CH(@) THEN 732 srem 143 

710 IF W=CH(2) THEN P=P-VAL(TIS) :W=CH(@):OC=CL(@): 

RETURN :rem 4 

720 P=P+INT(N-VAL(TIS$)} :W=CH{2)}:OC=CL(2):M=M-1:RET 

URN trem 285 

738 NH=OH:NV=OV: FL=OH+0V* 48: W=E:O0C=PEEK(FL+CM) : RET 

URN :rem 187 

1168 POKE 56334, PEEK({56334})AND 254:POKE 1, PEEK(1)A 

ND 251 rrem 227 

1118 FOR I= TO 1:RM=53248-CM{I) trem 167 

1120 FOR J=CM(I) TO CM(I)+511:POKE J, PEEK(J+RM) :NE 

XT:NEXT :rem 76 

1139 FOR I=@ TO 1:J7=816:GOSUB 1159:J=344:GOSUB 115 

@:J=336:GOSUB 1156 rrem 219 

1146 J=648:GOSUB 115@:NEXT:POKE 1,PEEK(1)OR 4: POKE 

56334, PEEK(56334)OR 1:RETURN srem 44 

115@ FOR K=CM(I)+7 TO CM(I)+J+7:READ SH:POKE K,SH: 

NEXT: RETURN srem 128 

1368 DATA 8,0, 28,38,30,126,127,255 zrem 113 

1316 DATA %,0,16,196, 38, 28,8, rrem 166 

1326 DATA Gg, 8, 28, 54, 28,8,9,2 zrem 81 

1338 DATA 8,9,24,126,231,24,¢4,8 srem 288 

13408 DATA 6,9,28,39,39,126,127,255 srem 117 

1356 DATA @,9,9,86,196,56,0,¢ trem 121 

1368 DATA 6,20,54,8,54,29,8,@ srem 118 

1376 DATA 24,69,102,195,129,66,60, 24 srem 235 
Collision Tracking 


So far we have used only PEEKs to see whether a collision is 
taking place. There is a good reason for this. Most of the time, 
you will be creating games where there are random elements, 


thing: 


s on the screen that your program won't be keeping track 


of. There'll be no way for the computer to know there’s been a 
collision without PEEKing. 
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In some games, however, the only things on the playfield 
besides the player-figure will be computer-controlled figures, 
and your program will therefore be keeping track of the loca- 
tion of every single item on the screen. Then you can find out 
about collisions by comparing the locations of the various 
items. But it only works when there are few figures on the 
screen, and no possibility of random items to run into. 


Spark: Combining PRINT with POKEs and 
PEEKs 

One last game before we move on to sprite collisions. One 
thing we haven't done yet is make a computer-controlled figure 
respond to other characters on the screen. In maze games like 
Pac-Man, the computer-controlled characters wander through a 
maze, making turns correctly and not blundering off through 
the walls of the maze. This is handled by having the computer 
read its own screen memory like a map. When computer- 
controlled figures collide with certain characters, they respond 
in predetermined ways. 

In the game “Spark,” we'll use a screen display we created 
in Chapter 3. The game consists of a spark on a wire, racing 
around and around. It’s your job to get the spark off the end of 
the wire. But you don’t control the spark—instead, you control 
an interruption in the wire. The spark will keep moving at a 
steady pace, controlled by the computer. 

Using f5 (up) and f7 (down), you control the vertical posi- 
tion of the break in the circuit. The SHIFT and Commodore 
keys control its horizontal position. Press SHIFT and it has one 
horizontal position; press Commodore and it has the other; 
press SHIFT and Commodore together and the break 
completely disappears. But this is one case where a picture is 
worth more than words—you have to practice the game to 
really understand what your controls will do. 

The top and bottom of the wire also shift randomly, 
constantly undoing your work. You have a time limit—your 
score is how much time you had left when you got the spark 
off the wire. 

As you examine the program, you'll see that the spark 
never exists in screen memory at all—it is only POKEd into 
color memory. But the spark’s movement routine in the main 
loop from 100 to 190 PEEKs into screen memory in order to see 
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what direction it is supposed to go next. Using PRINT for 
screen changes gives this game machine language speed in its 
response to the player’s keyboard input. This method won’t 
work for all programs, of course, but for this one, the computer 
is running a fairly fast-moving figure through a fairly complex 
movement pattern, all in BASIC. If you program carefully 
enough, you can get real speed with character movement in 
BASIC games! 


Program 9-3. Spark 


Remember, do not type the checksum number at the end of each line. For example, do 
not type “:rem 123.” Please read the article about the “Automatic Proofreader” in 
Appendix. 


1@ DIM A${6),S$(18):POKE 53281,0:POKE 53289,1:PRIN 


T "(CLR} {WHT}":GOSUB 549 srem 254 
15 Z=4 srem 49 
26 FOR I=@ TO 9:PRINT SS{1I)A$(@):NEXT I srem 91 
39 SM=PEEK(648)*256:CM=55296 trem 49 
35 FOR I=CM TO CM+999:POKE I,1:NEXT trem 246 
49 OC=PEEK(CM) :NC=10:0L*37:NL=77 rrem 157 
59 DIM MV(4,4):GOSUB 700:FR=8:CH=4:P=3098:POKE 657, 

128 :rem 185 
6@ Y=1:GOSUB 318:A=2:PL=6:GOSUB 282 trem 25¢ 
198 IF VAL(TI$)>Z THEN GOSUB 396 trem 239 


118 POKE CM+NL-MV(CH,FR),OC:POKE CM+NL,NC :rem 191 
126 A=PEEK(653)AND3:B=PEEK(197):IF A>@ THEN GOSUB 


{SPACE} 208 :rem 186 
138 IF B<64 THEN GOSUB 259 srem 81 
148 E=PEEK(SM+NL):GOSUB 480:CH=E zrem 135 
145 IF CH=4 AND YY<>@ THEN GOSUB 458 rrem 156 
158 E=PEEK(SM+OL):GOSUB 40@:FR=E:IF CH=FR THEN FR= 
4+ (FR=4)+D trem 235 
166 IF CH<4 THEN OL=NL zrem 194 
178 IF CH<@ THEN 609 sxem 227 
189 NL=NL+MV (CH, FR) :D=SGN(MV(CH, FR) )=-1 zrem 74 
198 YY=4:GOTO 1488 srem 189 
268 PH=A:IF A=3 THEN PH=@:GOTO 298 srem 18¢ 
250 PRINT S${PL)A$(@):YY=SGN(MV(CH,FR)) trem 19 
268 PL=PL+(B=6)-(B=3}:PL=PL+1@* (PL>9)-19* (PL<@) 
:rem 72 
296 PRINT S$(PL)A$(PH): RETURN trem 244 
308 Y=INT(RND(9)*2):P=P-1@:IF Z>]1 THEN Z=2-1 
srem 228 
318 PRINT "{HOME}{2 SPACES}TIME LEFT{3 SPACES}"STR 
s(p)" * rrem 212 
320 PRINT "{HOME} {DOWN} "AS (3+Y)S$(19)A$(6-Y) 
trem 146 
330 IF P=6 THEN 669 srem 167 
245 
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346 TI$="96983G" : RETURN :rem 19 
49@ E=E-128-73:IF E>2 THEN E=E-9:IF E>3 THEN E=E-7 
trem 199 
410 RETURN rrem 117 
456 IF YY=-1 THEN OL=CH-40* INT (CH/4@)+729:RETURN 
srem 250 
469 OL=CH-4G* INT(CH/48)+46: RETURN srem 187 
50@ FOR I=8 TO 6:A${(I)})=CHRS(18}:NEXT I srem 254 
520 FOR X=1 TO 38:A$(8)=AS(G)+CHRS(221)}:NEXT 
rem 32 
538 FOR I=l TO 5 STEP 4:FOR X=1 TO 19:AS(I)J=AS{1I)+ 
CHRS {186)+CHRS (187) :NEXT: NEXT trem 2 
548 FOR I=2 TO 6 STEP 4:AS(I)=CHRS$(221)}:FOR X=1 TO 
18 z:rem 299 
545 AS(I)=A$S(1)+CHRS(106)+CHRS (187) sNEXT:AS(I)})=AS( 
I)+CHRS$(221):NEXT rrem 123 
550 FOR I=@ TO 2:A$(1I)=AS(1)+CHRS$(13)+CHRS(18) :NEX 
T srem 193 
569 FOR X=1 TO 38:A$(@)=AS$(@)+CHRS$(221)}:NEXT 
trem 36 
578 FOR I=l1 TO 3 STEP 2:FOR X=1 TO 19:AS(I)=AS(1I}+ 
CHRS (117)+CHRS$ (105) :NEXT:NEXT rem 2 
58@ FOR I=2 TO 4 STEP 2:AS{I)=AS{1I)+CHRS$(221):FOR 
{SPACE}X=1 TO 18 srem 251 
585 A$(1I)=A$S(1I}+CHR$(117)4+CHRS (1905) :NEXT:AS(I)=AS{ 
I}+CHRS$ { 221) :NEXT srem 127 


598 S$(@)=CHRS(18)+"{HOME}{2 DOWN]":FOR I=l TO 19: 
S$(I)=S$(I-1)+"{2 DOWN}" : NEXT: RETURN trem 41 
680 PRINT S$(18)TAB{17)"{DOWN}]THE END":GOTO 60d 


srem 242 
708 FOR I=@ TO 4:FOR X=@ TO 4:READ MV(I,X):NEXT:NE 
XT: RETURN rrem 235 

710d DATA 8,-1,-1,48,-1,1,0,-48,1,1,-1,-408,0,-1,-1 
zrem 247 
720 DATA 46,1,1,8,1,48,-48,-40, 498,86 trem 128 


Checking for Collisions—Sprites 

Characters are not the only thing you can place on the 64’s 
screen. In many games, you'll want to include sprites. 
Checking for sprite collisions is even easier than testing for 
character collisions. This is because the 64 has a built-in system 
for detecting when a sprite bumps into another sprite, or even 
into a character. 

Two memory locations are set aside for sprite collision 
detection in your computer. They are addresses 53278 and 
53279, usually referred to as registers V + 30 and V+31, when 
V =53248. Each bit in each of the two registers is assigned to a 
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particular sprite. For instance, bit 3 in each of these registers 
represents the collision status of sprite 3. 

Usually, all bits in both registers are set to 0, or off. When a 
sprite bumps into another sprite, its bit in register V + 30 is set 
to 1. If that sprite collides with a screen character, its bit in the 
other register, V + 31, is set to 1. 

By PEEKing at these registers’ locations, you can find out 
what sprites, if any, have collided. PEEKing(V + 30), for 
example, might give you a value of 72. That means that sprites 
3 and 6 have bumped into each other. When a sprite’s bit is 
turned on as it collides, the bit’s value is placed in the register. 
Bit 3’s value is 8, while bit 6’s value is 64. 8+ 64=72. 

Collisions between sprites. So you can easily find out 
which sprites have collided simply by PEEKing location V + 30. 
Once you've PEEKed this location, all bits are automatically 
reset to 0, or turned off. 

If your game has only two sprites, all you need do is 
PEEK(V + 30) to see if its value is greater than 0. If it is, the 
sprites, no matter what their numbers, have collided. When 
using more than two sprites, however, you'll have to use the 
logical AND to mask the unwanted sprites. 


IF PEEK(V +30) AND 16=16 THEN GOSUB 300 


This would check to see if sprite 4 (bit value of 16) was involved 
in a collision. 

This program is a variation of a machine language joystick- 
controlled sprite routine from Chapter 8. It’s not quite a game, 
but with some work on your part, it could be. 


Here’s how the program works. 


Line Function 

10 Set screen background color, establish variable V, 
and set X and Y coordinate positions for both 
sprites. X and Y are sprite 0's starting location, 
while X2 and Y2 are the coordinates for sprite 1. 


15 READ DATA for machine language movement 
subroutine. 
20 READ DATA for sprite creation. Since both 


sprites use identical DATA statements, informa- 
tion is only POKEd into addresses 12288 + X. 
Both sprites will take their information from this 
area. 
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Set sprite pointers so that both sprites look to 
12288 for DATA information. 


40 Enable both sprite 0 and sprite 1. 

50 Set color of sprite 0 to light red (V + 39,10) and 
sprite 1 to yellow (V + 40,7). 

60-70 POKE in location of both sprites. 

80 Access the machine language subroutine for 
faster joystick movement. 

90-100 Move sprite 1 vertically down the screen, using 
wraparound. 

110 PRINT the value read from PEEK(V + 30) at the 
top-left corer of the screen. As you move the 
light red sprite across the screen, this number 
will change to a 3 when the sprites collide. 

150 End of main loop. 


990-1010 DATA statements for machine language 


subroutine. 


60000-60020 DATA statements for sprite creation. 


Program 9-4. Sprite-to-Sprite Collisions 


Remember, do not type the checksum number at the end of each line. For example, do 
not type “:rem 123.” Please read the article about the “Automatic Proofreader” in 
Appendix E. 


16 


15 
29 


38 
49 
58 
68 
76 
88 
98 
188 
119 
156 
998 
995 


996 
997 
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POKE 53281, @:PRINT" {CLR}":V=53248 :X=126:Y=120:X 
2=150:¥2=5¢8 trem 35 
FOR X=828 TO 949:READ A:POKE X,A:NEXT trem 11 
FOR X=@ TO 63:READ A:POKE 12288+X,A:NEXT 


srem 136 

POKE 2048,192:POKE 2041,192 srem 24 
POKE V+21,3 :rem 214 
POKE V+39,10:POKE V+4G,7 zrem 191 
POKE V+0,X:POKE V+2,X2 srem 156 
POKE V+l,Y¥:POKE V+3,Y¥2 rrem 161 
SYS (937) srem 91 
Y¥2=Y2+3:IF Y2>255 THEN Y2=0 :rem 111 
POKE V+3,Y2 trem 43 
PRINT" {HOME} "PEEK(V+32) srem 208 
GOTO 828 :rem 55 
REM DATA FOR JS ROUTINE :rem 74 
DATA 173,1,229,74,176,3,286,1,208,74,176,3,238 
el, 208, 74,176,42,173 :rem 134 
DATA 6, 288, 208, 31,173,16,208,41,1,208,16,173,1 
6,298,9,1,141,16, 208 trem 114 
DATA 169,88,141,9, 208,96, 234, 234,173,16, 208,41] 
» 254,141,116, 268, 286 srem 87 
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998 DATA @, 208,96, 234,234, 74,176,32,238,8, 208,248, 


36,169,89,265,08,298 :rem 82 
999 DATA 268, 20,173,16,298,41,1,248,13,173,16, 288, 
41,254,141,16, 268, 169 srem 172 
1089 DATA @,141,8,208,96,234, 234,173,16,298,9,1,14 
1,16, 208, 96,234,234 srem 54 

1018 DATA 32,68,3,32,60,3,32,60,3,32,66,3,96 
zrem 83 
59999 REM SPRITE DATA trem 238 
60820 DATAD,6,9,9,0,0,7,255, 224,15, 255, 248, 25, 36,1 
52,31,255, 248,15, 255 srem 127 
69018 DATA 248,7,255,224,0, 24,8, 32,189,4,49, 255,14 
@,43,255, 212, 36,60, 36,48, 24 s:rem 187 
69826 DATA 20,48, 36,12,32,98,4,9,189,6,1,126,128,3 
18,192,89,8,9,8,9,6,36,40,24 srem 135 


Notice the number changing from 0 (indicating no colli- 
sion) to 3 (indicating a collision between sprite 0 and sprite 1) 
as the sprites bump into each other. You can keep the 3 
displayed by keeping in contact with the computer-controlled 
sprite. 

P Even though this was the fast version of joystick move- 
ment, note how much it slowed down with the addition of 
only a few lines in the main loop. Keep this in mind when you 
decide how complicated to make your own game's main loop. 

Making this program display a score is only a matter of a 
few changes. 

Insert these changes and additions to Program 9-5: 

118 PRINT" (HOME) "PEEK(V+38);"{9 SPACES}SCORE="SC 
zrem 158 
129 IF PEEK(V+36)=3 THEN SC=SC+1 trem 224 


You could just as easily subtract points as add them. 

Collisions between sprites and characters. The second 
collision register, V + 31, is reserved for collisions between 
sprites and other screen characters. The value stored in the 
register will tell you which sprite was involved in the collision, 
but it will not tell you which screen character was bumped 
into. Still, this gives you a number of uses for this register. 

A sprite could collide with character missiles, for instance. 
It wouldn't be important which character the sprite collided 
with, only that it was hit. To test for a particular sprite’s colli- 
sion with screen characters, you again need to mask the other 
sprites with logical AND. For example: 


IF PEEK(V +31) AND 8=8 THEN GOSUB 300 
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would test to see if sprite 3 was involved in a collision with a 
screen character. 

These program changes show both sprite-to-sprite and 
sprite-to-character collisions. Add them to Program 9-4. 


Program 9-5. Sprite-to-Character Collisions 


Remember, do not type the checksum number at the end of each tine. For example, do 
not type “:rem 123.” Please read the article about the “Automatic Proofreader” in 
Appendix E. 


7 L=1824:C=42 :CM=54272 srem 179 
118 PRINT "{HOME} {WHT]SPRITE TO SPRITE="PEEK(V+36) 

+ “(V+30) srem 245 
115 PRINT "{2 DOWN} SPRITE TO CHARACTER= “PEEK(V+31l 

d: "(V+31) :rem 188 
126 L=L+1:IF L>2623 THEN L=1924 trem 93 
138 POKE L,C:POKE L+CM,5:POKE Le-l,32 rrem 243 


Both register values will print on the screen with this program. 
Although there are two sprites on the screen, you control only 
the light red one. A moving character zips across the screen as 
well. The register values change each time the player- 
controlled sprite collides with the other sprite, the moving 
character, or the text at the top of the screen. (Remember that 
the text is really just standard characters.) 

Different kinds of collisions can occur on the screen at the 
same time with the 64. Keeping track of these collisions is rela- 
tively easy, especially when you're using sprites. 


Invisible Characters 

Remember when you created multicolored characters? Not 
only are they more attractive on the screen, but they also have 
a very useful purpose when you want to detect only certain 
screen characters. 

A collision between a sprite and a character causes bits to 
be set in sprite register V + 31. This makes it easy to detect 
collisions between important characters on the screen. 
However, if you want to have some characters that would set 
off the collision register and others that didn’t, you may think 
that it’s impossible. It’s not. 

A game like Pac-Man, for example, has some characters 
that set registers, and others that don’t. You certainly wouldn’t 
want the ghost-like sprites to set bits in a collision register 
when moving over the dots in the maze. You would want these 
same sprites to detect the walls of the maze, though. 
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You can use multicolored characters to distinguish 
between characters that will set bits in the V + 31 register and 
those that do not. Using this technique, you can place charac- 
ters on the screen that will be ignored by the sprite detection 
register. 

You'll recall that multicolored characters are made up of 
bits paired in four possible combinations. These combinations 
are: 00, 01, 10, and 11. Each of these bit-pair combinations 
produce a different color. Characters completely made up of 00 
and 01 paired bits will not be detected by the sprite collision 
register. 

Creating background characters on the screen becomes 
simple. As long as the characters are multicolored and made 
up only of 00 and 01 bit-pairs, the sprites moving across the 
screen will not detect a collision. Other characters, perhaps 
multicolored characters made up of 10 and 11 bit-pairs, would 
cause the register to be set. 

This program creates a multicolored character made up 
only of 00 and 01 bit-pairs, moves it about the screen, and 
allows you to see a sprite bump into it, but not set the collision 
register. The multicolored character is drawn in Figure 9-1, 
showing you how it was designed using only those two bit- 
pairs. 


Figure 9-1. Multicolor Custom Character 


Bit 7 6 5 4 3 0 Data 
Bit 128 64 32 16 8 1 Values 
Values 
20 
65 


65 will appear as: 
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Program 9-6. Invisible Character Detection 


Remember, do not type the checksum number at the end of each line. For example, do 
not type “:rem 123.” Please read the article about the “Autornatic Proofreader” in 
Appendix E, 


8 GOTO 56d trem 6 
18 POKE 53281,0:PRINT" {CLR} ":V=53248:X=129:Y=120:X 
2=159:Y2=59 sxem 35 
11 POKE 53282,15:POKE 53283,2:POKE 53276, PEEK(5327 
@) OR 16 srem 8 
15 FOR X=828 TO 949:READ A:POKE X,A:NEXT srem 11 
26 FOR X=@ TO 63:READ A:POKE 12608+X,A:NEXT 


rem 132 
25 L=1526:C=28:CM=54272 srem 231 
38 POKE 2040,197:POKE 2041,197 srem 34 
49 POKE V+21,3 srem 214 
5@ POKE V+39,1@:POKE V+40,7 trem 191 
60 POKE V+0,X:POKE V+2,X2 srem 156 
78 POKE V+1,¥:POKE V+3,Y¥2 trem 161 
88 SYS(937} srem 91 
O80 Y¥Y2=Y2+3:IF Y2>255 THEN Y2=9 srem 111 
106 POKE V+3,Y2 zrem 43 
116 PRINT" {HOME}K29SPRITE TO SPRITE={2 SPACES}"P 
EEK (V+3@}:" (V+3@} srem 133 
115 PRINT" {2 DOWN}SPRITE TO CHARACTER={2 SPACES}"P 
EEK (V+31}; " (V+31) srem 188 
12@ L=L+1:IF L>2623 THEN L=1024 srem 93 
1368 POKE L+CM,15:POKE L,C:POKE Ll, 32 trem 36 
158 GOTO 8d rrem 55 
508 PRINT CHRS$(142) zrem 11 
518 POKE 52,48:POKE 56,48:CLR rrem 75 
528 POKE 56334, PEEK(56334) AND 254 srem 224 
53@ POKE 1,PEEK(1) AND 252 trem 54 
549 FOR I=@ TO 511:POKE 1+12288, PEEK(I+53248) :NEXT 
srem 231 
558 POKE 1,PEEK(1} OR 4 srem 162 
56@ POKE 56334, PEEK(56334) OR 1 srem 72 


570 POKE 53272, (PEEK(53272) AND 248)4+12 :rem 187 
58@ FOR X=12512 TO 12519:READ A:POKE X,A:NEXT 


trem 247 

590 GOTO 19 :rem 56 
595 REM DATA FOR CUSTOM CHARACTER srem 249 
660 DATA 28,65,65,65, 28,29,29,65 trem 24 
999 REM DATA FOR JS ROUTINE srem 74 
995 DATA 173,1,228,74,176,3, 206,1,208,74,176,3,238 
21,208, 74,176,42,173 trem 134 

996 DATA @, 208, 268, 31,173,16, 208,41,1,208,16,173,1 
6, 2808,9,1,141,16, 208 trem 114 

997 DATA 169,88, 141,94, 208,96, 234,234,173, 16, 288,41 
ry 254, 141 ' 16, 208, 296 :rem 87 
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998 DATA 6, 268,96,234,234,74,176, 32,238,8, 268, 248, 
30,169,898, 265,99, 288 rrem 82 
999 DATA 298,208,173,16,208,41,1, 246,13,173,16, 208, 
41,254,141,16, 298,169 zrem 172 
1000 DATA 9,141,080, 288, 96, 234, 234,173,16,298,9,1,14 
1,16,208, 96,234,234 srem 54 

1010 DATA 32,60,3,32,60,3,32,69,3,32,69,3,96 
:rem 83 
59999 REM SPRITE DATA srem 238 
60900 DATAG,9,6,9,9,0,7,255,224,15, 255, 249, 25, 36,1 
52,31,255,248,15,255 srem 127 
66819 DATA 246,7,255,224,9,24,8,32,189,4,49,255,14 
8,43,255,212, 36,60,36,49, 24 trem 187 
60829 DATA 20,48,36,12,32,99,4,8,189,8,1,126,128,3 
,8,192,9,6,59,8,0,9,36,49,24 srem 135 


Only the routine from line 500 to line 600 is new. This sets up 
the custom multicolored character, and is completely explained 
in Chapter 4, Custom Characters. 

The first 64 standard characters were copied and placed in 
memory locations starting at 12288. The custom character was 
located where the pound sign is normally placed. 

As you move the light red sprite across the screen, watch 
the values change at the top. When the sprites collide, a value 
of 3 is still placed in register V + 30. Each sprite also sets bits in 
the V + 31 register as it collides with the text. Sprite 0 sets a 
value of 1 in the register, while the computer-controlled sprite, 
sprite 1, sets a value of 2. But neither sprite detects a collision 
with the multicolored character. 


OOO DDO 9O OOO 5000907050006 
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Just how important is sound in a videogame? Try playing a 
favorite game with the sound turned off. You'll be amazed at 
how much you'll miss the various tones, noises, and melodies 
that you are accustomed to hearing while you play the game. 
Your timing will probably be off, your score will be lower, and 
most importantly, you won't enjoy the game as much. Why? 


Uses of Sound 

Sounds help you while you play a videogame by providing 
feedback of your game actions. As you play Joust, for example, 
there are sounds which give you information on almost every 
event that occurs. A collision in which you defeat the other 
knight is different from one in which you are defeated. 
Colliding with different surfaces results in different sounds. 
When you receive a bonus knight, there is yet another sound. 
These sounds aid you as you play, for as you concentrate on 
keeping you own knight alive, the sounds tell you what's 
going on elsewhere on the screen. Pac-Man also provides 
sounds as information, although to a lesser degree. Each dot 
that is eaten, and thus each point that is awarded, produces a 
sound. You know you are gaining points without having to 
actually look to check. When a power dot is eaten, another 
sound is made which signals that ghosts can now be chased. 
Sound as information is a valuable aid in a game. 

Sounds also affect your mood as you play, drawing you 
into the game’s unique world. Imagine the loss you feel when 
your Pac-Man is caught by one of the ghosts and the short 
“Sorry” sound routine plays. The fierce stamping sounds at 
the opening of Donkey Kong only urge you on to the top. Never 
mind the anger of the ape, you tell yourself. Part of this mood 
is generated by the pace of the sounds and music. 

One of the most successful arcade games, Space Invaders, 
uses a repetitive sound as the aliens move across the screen. 
As their numbers decrease, the sounds become louder and 
faster. The effect is one of excitement and anxiety. 

Many games have different levels of difficulty. Perhaps 
your game will, too. Often the screen alters slightly when a 
new level of difficulty is reached. A faster background sound 
or a higher pitched noise can increase the pace of the action. 
The high-pitched, modulating drone that seems to yell 
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“Danger! Danger!” as the ghosts in Pac-Man chase you is a 
good example. 

Pay close attention to the sounds you hear the next time 
you play a video arcade game. What sounds are used for what 
effects? What do those sounds do to and for the player? How 
would the game be less enjoyable or harder to play if the 
sounds were eliminated? Seeing how other game creators use 
sound will help you decide how and when to use sound in 
your own games. 


The SID Chip 
Creating sounds on the Commodore 64 is very different from 
other computers which use controllable oscillators to produce 
sound. The VIC-20, for example, creates sounds quite simply. 
The 64, however, has a built-in music and sound synthesizer. 
This allows you to create much more complicated sounds, but 
the process of creating those sounds is also more complex. 
The 64's SID (Sound Interface Device) chip creates sounds 
and music by using 29 different memory locations, or registers. 
These registers can be divided into five sections. These 
sections and the registers in each are: 


Section Registers Control 

Section 1 0-6 Voice Number 1 
Section 2 7-13 Voice Number 2 
Section 3 14-20 Voice Number 3 
Section 4 21-24 Filter Controls 
Section 5 25-28 Read-Only Controls 


The first four sections are sometimes referred to as write- 
only registers. You can POKE, or write new values to these loca- 
tions, but you can’t PEEK there to find out the values in a 
particular register. Because they are write-only, you can’t use 
the logical ANDs and ORs to turn certain bits on or off. You can 
only POKE a number directly into a register. 

The last section of registers is read-only. It’s just the oppo- 
site: you can PEEK, but you can’t POKE. The four registers in 
this section are useful as random number generators when you 
create sound effects. For instance, register 27 could be used to 
generate random numbers to represent a static or white noise 
sound. 

The first three sections, registers 0-20, are the ones you'll 
find the most use for when creating sound effects for your 
games. Each section is one voice of the 64. They can be played 
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separately or they can be combined. Each voice is capable of 
creating any of the notes within the human auditory range. 


Getting Ready 

Using the SID chip in the 64 to create game sound effects may 
seem complex to you, especially if you’re just beginning. Don’t 
worry. As long as you follow the steps outlined, you'll quickly 
be creating your own game sounds and music. 

To create a single sound or note, you'll have to do five 
things. Each step is explained below. 

1. Frequency. You have to select a frequency for your 
sound or note. The first two registers in each voice control this. 
These registers combine their values to form one number, 
which is the frequency of the note. This is not important 
unless you want specific notes played, as when you're creating 
a tune. It is the high frequency register, register 1 in voice 1, for 
instance, which has the most effect on the pitch of a note. 
Most of the time you'll use register 1 to change a note’s pitch. 
Just remember that a high pitch is soprano, a low pitch is bass, 
and you'll be able to control a note’s frequency. 


2. Wave form. You also need to select a wave form for the 
note you're creating. This is chosen by POKEing the appro- 
priate value into the fifth register of each voice. You have four 
wave forms to choose from. The triangle wave form produces a 
flute-like sound, while the sawtooth wave form creates a more 
twangy, bright sound. The pulse wave form can produce a 
variety of sounds because other registers in each voice control 
its frequency separately. The noise wave form creates “white 
noise,” ranging from a hiss to arumble. 


3. Attack, Delay, Sustain, and Release (ADSR). The sixth 
register in each of the three voices controls this. The ADSR is 
somewhat complicated, and will be explained in more detail 
later in the chapter. 


4, Volume. Register 24 controls the volume, which has a 
range from 0 to 15. Zero is off, while 15 is the loudest volume. If 
this is not set, you won't hear anything when the sound effect 
runs. 


5. Gate bit. Unless the gate bit is turned on, the sound will 
not play. This bit is in the same register as the wave form 
values, so it’s often set at the same time. 
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The SED Register 


It’s difficult trying to memorize the registers, what each does, 
and which bit controls each register function. Refer to the SID 


Register Table whenever you need this information. 


Table 10-1. SID Register 
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Bit Value 
Bit 


Note Frequency 
(Low Half) 


Note Frequency 
(High Half} 


Release 


Noise | Pulse | Sawtooth| Triangle RingMod.| Sync. 
Rea el dal ee owvoft teem 
Attack Attack Decay Decay Decay Attack & 
3 1 2 1 0 Pew 
Sustain Sustain Release Release | Release 
3 1 3 1 0 


Sustain & 
Release 


COO © ORCC Ce eC Cee Cee ee 


2 22D 7D FPDP 2D DD DD DED DD I DD PDD DDD 
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z 128 64 2 16 8 4 2 1 Bit Value 
2 7 6 5 4 3 2 t 0 Bit 


Note Frequency 
(Low) 


Note Frequency 
(High) 


Pulse Width 
(Low) 


~ B | Not Not Not Not Pulse Width 
7 il Used Used Used Used {High) 
Noise Pulse | Sawtooth| Triangle Test |RingMod.| Sync. Gate . 
* Te jeans 
Attack Attack Attack Attack Decay Decay Decay D 
Sustain Sustain | Release | Release | Release | Release Sustain é& 
& 2 0 3 2 I 0 Release 
= Not Not Not Not Not Filter Frequency 
By Used Used Used Used Used (Low) 
: FFH FFH Filter Frequency 
= 7 5 (High) 

§ Resonance] Resonance real oo Filter Filter Filter Resonance & 
RE la 2 Voice3 | Voice2 | Voicet | Filter Controls 
a Turn off | High Pass | Band Pass | Law Pass Nag a on Filter Type & 
i Voice3 | Filter Filter Filter Volume Control 


Petentiometer X 
8 Read Bits 
7 Potentiometer ¥ 
z. Read Bits 
a Oscillator 3 
eS) Read Bits 
& Generator 3 
cay Read Bits 
Making a Simple Sound 


You're ready to create your first note on the 64. Look at this 
program, which plays a high note and then turns it off, to see 
how each step was followed. Refer to the SID Register Table to 
check the POKEs used. 


Line Function 

10 Establish variable S equal to register 0. Beginning 
memory location of SID registers is 54272. 

20 Set the frequency of the note. 
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30 Set ADSR. Bit 3 in register S + 5 is set by POKEing ina 
value of 8. This sets the Decay to level 8. The Sustain is 
set to level 15 and the Release is set to level 8 
POKEing 248 into register S + 6(248 = 16* 15 + 8). 

40 Turn on volume and set it to high. 

50 Set wave form as the triangle wave form. Gate bit is 
also turned on. POKEing 16 turns on bit 4 (triangle 
wave form) and 1 is added to the value to turn on bit 


0 (Gate bit). 

60 Delay loop so that sound will play longer. 

70 Set wave form again, this time with the gate bit 
turned off. 

80 Another delay loop. 

90 Set volume level to 0. 


Not all of the SID register controls were used in creating this 
note, but it’s a beginning. 


Program 10-1. One Note 


Remember, do not type the checksum number at the end of each line. For example, do 
not type “:rem 123.” Please read the article about the “Automatic Proofreader” in 
Appendix E. 


1@ S=54272 srem 245 
28 POKE S,15@:POKE S+1, 200 srem 124 
38 POKE S+5,8:POKE S+6, 248 srem 144 
49 POKE S+24,15 srem 9 
58 POKE S+4,17 trem 218 
6@ FOR T= TO 1880:NEXT trem 235 
74 POKE 8+4,16 srem 219 
88 FOR T=8 TO 190@:NEXT trem 237 
98 POKE S+24,2 ¢rem 216 


Attack, Decay, Sustain, and Release (ADSR) 

Don’t let the title frighten you. ADSR is actually little more 
than an expanded volume control. Although register 24 turns 
the volume on and off, as well as sets its level, ADSR is some- 
thing each sound effect routine must have. 

Think of what an explosion sounds like. It begins quite 
loud, and then dies down quickly. You might think of it as 
starting at full volume, keeping that level for a second or so, 
and then falling off rapidly. The entire sound might last only a 
few seconds. We can call this process of getting loud, then 
eventually getting softer, as the ADSR of a note. Sometimes it’s 
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called the sound envelope. 

Each natural and artificial sound has its own peculiar 
envelope, or ADSR. It’s really what makes one sound different 
from another. By adjusting the ADSR of a sound you can 
imitate many natural sounds, and also produce completely 
new sounds. 

ADSR breaks every note into four parts. By altering one or 
more of these parts, you control the note’s sound. Take a look 
at Figure 10-1, ADSR Envelope. 


Figure 10-1. ADSR Envelope 


Notes: 1. Sustain can be maintained as long as desired, i.e. indefinitely. 
2. Volume level of sustained note determined by sustain setting. 
3. Attack, Decay and Release relate time elapsed, whereas Sustain is an actual 
loudness or volume setting. 
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Attack. As the sound begins, the volume rises rapidly. 
This section of the envelope is called the attack. When you 
create sound effects, you can set the attack to last anywhere 
from two milliseconds to eight seconds. Sounds like bangs, 
explosions, taps, or peeps have a short attack. An attack of 0 
means the sound starts at full volume. 

Decay. After this initial attack, the volume decreases 
during the decay section of the envelope. This decay of volume 
lasts a specified amount of time before the next level is 
reached, the sustain. In this way decay is like attack: it is a 
function of time expired. The number you select for this func- 
tion determines how long the decay process will take. 

Sustain. After the decrease in volume, the sound will 
stabilize for a time. This is the sustain. The number you select 
for this function of sound determines the volume level reached 
after the decay. For example, if the sustain is set at 12, the 
decay will drop the volume from level 15 to level 12. The note 
will stay at this volume until the gate bit is cleared. You can 
sustain a note indefinitely, simply by not clearing the gate bit. 

Release. Another function of time, release is the final 
descent toward zero volume. Sounds like beeps, for instance, 
have a very short release time. Others, like a gong-like sound, 
have long release times. 


Setting the ADSR 

The ADSR parameters are set by two registers for each of the 
computer's three voices. Voice 1, for example, uses registers 5 
and 6. To set the ADSR, you POKE in values to those registers. 
Each of the four parts of the ADSR can be set at a level from 0 
to 15. But those aren’t the numbers you POKE in. Look at Table 
10-2. 

Since you POKE the attack and decay into the same 
register, and the sustain and release into another, you'll need 
to combine the values of the pairs and POKE in the total. For 
example, if you want the attack set at 3 and the decay at 12, 
you would add 48 (the number for level 3 of attack) to 12 (the 
number for level 12 of decay), for a total of 60. That's the 
number you’d POKE into register 5 to set voice 1 with an attack 
of 3 and decay of 12. 

If you take Program 10-1, One Note, and alter the 
ADSR values, you can change the sound of the note. Line 30 
held the ADSR settings. You could change it to: 
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38 POKE S+5,284:POKE S+6, 255 


The attack was set at 12 (192) and the decay at 12 (12). The S+5 
register was then POKEd with 204 (192 + 12). Sustain and 
release were both set to maximum (240 and 15, respectively), 
so 255 was POKEd into register 5+ 6. Use your own ADSR 
values to experiment with the envelope parameters. 


Table 10-2. ADSR Values and POKEs 


ic Changes 
Using the SID chip, you can create single notes, and control its 
ADSR. You could certainly use single notes in a game 
program. If a character dashes across the screen, for instance, 
you might want to have a simple beeping sound playing at the 
same time, This can be easily done with single notes. You 
would set a short attack, decay, and release, and set the 
sustain to maximum. Let's modify that first sound effect 
program to see an example. Adding lines and making changes 
to Program 10-1 will create the following new program. 
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Program 10-2. Beeps 

Remember, do not type the checksum number at the end of each line. For example, do 
not type “:rem 123.” Please read the article about the “Automatic Proofreader” in 
Appendix BE. 


10 8=54272 trem 245 
28 POKE S,15@:POKE S+1, 208 :rem 124 
38 POKE S+5,9:POKE 5+6, 248 srem 128 
46 POKE S+24,15 srem 9 
5@ POKE S+4,17 trem 218 
6@ FOR T=6 TO 200:NEXT :rem 188 
78 POKE S+4,16 :rem 219 
80 FOR T=9 TO 206:NEXT srem 199 
98 GOTO 58 :rem 7 


All we’ve done is turn the sound on and off every one-fifth of a 
second. You can vary the time each beep takes by changing the 
200 in lines 60 and 80. 

You just created a sound effect with dynamic change. 
Instead of simply turning the note on and letting it continue, 
you alternated the note with periods of silence. This is the key 
to sound effects. Change something. Since the SID chip has 
many parameters, you have numerous places to practice this 
technique of dynamic change. 

Instead of using silence to change a note, let’s change the 
pitch, or frequency. Altering the original version of Program 
10-1 changes the sound effect to this: 


Program 10-3. Frequency Change 


1@ 8=54272:P=10 srem 29 
26 POKE S,158:POKE S$+1,P :rem 58 
+ 30 POKE S$+5,9:POKE S+6,24@ srem 128 
40 POKE S+24,15 trem 9 
58 POKE S+4,17 : srem 218 
64 FOR P=1@0 TO 250 STEP 2 rem 227 
70 POKE S+1,P:NEXT trem 58 
88 FOR T=0 TO 190@:NEXT trem 237 
98 GOTO 66 zrem 8 


What you've done is set the high frequency register to equal P 
which changes in line 60. The sound will continue until you 
press the RUN/STOP and RESTORE keys. Quite a different 
sound, isn’t it? 

You can change the sound effect even more by experi- 
menting with some of the parameters. For example, to increase 
the pitch jump each time through the FOR-NEXT loop in line 
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60, change it to: 
66 FOR P=18 TO 2590 STEP 6 trem 231 


Or you can reduce the range of the pitch change by 
altering the values in line 60’s FOR-NEXT loop. Try: 


6@ FOR P=1@ TO 68 STEP 2 zrem 178 

or 

6@ FOR P=18@ TO 250 STEP 5 zrem 30 
You can even reverse the pitch scale by changing line 60 

to: 

68 FOR P=258 TO 19 STEP -2 :rem 16 


Or you can create another line to make the sound first rise 
in pitch, then lower. Add these lines to the original Program 
10-3: 

75 FOR P=258 TO 18 STEP -2 srem 22 
76 POKE S+1,P:NEXT srem 64 


Shortening the delay loop also creates a new sound. Try: 
89 FOR T=6 TO 56:NEXT srem 145 


As you can see, changing the FOR-NEXT loop and the 
STEP instruction creates the most dynamic changes. By 
altering just a few things, you can make the computer play 
totally different sounds. 


Random Notes 

Register 27 in the SID chip can generate random numbers from 
0 to 255 at a very rapid pace. By selecting the noise wave form 
for voice 3 (register 18, POKE 128), you can create these 
numbers, PEEKing register 27 lets you read the values there, 
which can then be POKEd into the frequency register of 
another voice to produce a series of random notes. It’s useful 
and very easy to do. 


Program 10-4. Random Notes 


1@ S8=54272 srem 245 
26 POKE $+18,128:POKE S,75 srem 147 
38 POKE S+5,@:POKE S+6, 24@ srem 128 
46 POKE S+14,12;POKE S+15,25¢ trem 21 
68 POKE S+24, 297 srem 62 
746 FOR L=@ TO 25:POKE S+4,17:POKE S$+1,PEEK{S+27) 
srem 97 
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75 FOR T=@ TO 188:NEXT:NEXT:POKE $+4,6 srem 177 
8@ FOR T=8 TO 596:NEXT:GOTO 70 srem 155 


The important lines in this program are 20 and 70. Line 20 sets 
the noise wave form of voice 3 (POKE $ +18, 128) so that 
register 27 will generate random numbers. Line 70 sets up a 
FOR-NEXT loop that plays 26 random notes, the pitch of each 
determined by PEEKing register 27 (S + 27). These random 
values are then POKEd into register S + 1. 

A random sound like this could be used in several types of 
games, perhaps as a background when characters or screen is 
set up. 


Ring modulation. Another technique you can use when 
creating random sounds is ring modulation. This produces 
harmonic structures that are not even and smooth as in 
normally generated notes. This lets you create sounds like bells 
and gongs. 

To use ring modulation, you have to turn on bit 2 of 
register 4 (for voice 1) at the same time you select the triangle 
wave form and set the gate bit. In other words, by POKEing 
5+4, 21, you'll turn on the ring modulation ability of the SID 
chip's voice 1. 

Ring modulation creates different sounds depending on 
the frequencies of voices 1 and 3. The overtone structure of 
voice 3 is added to that of voice 1. All you really have to know, 
however, is that it makes an interesting sound. 

Making a few changes to the random note program can 
add ring modulation. 


Program 10-5. Ring Modulation 


Remember, do not type the checksum number at the end of each line. For example, do 
not type “:rem 123.” Please read the article about the “Automatic Proofreader” in 
Appendix E. 


1@ 8=54272 srem 245 
26 POKE S+18,128:POKE S,75 trem 147 
308 POKE S+5,@:POKE S+6,24¢ srem 128 
49 POKE S+14,12:POKE S+15,5 trem 179 
6@ POKE S+24,207:POKE S+4,21 zrem 232 
78 FOR L=0 TO 15:POKE S+1,PEEK(S+27}) AND 224 

srem 28 
75 FOR T=@ TO 100:NEXT:NEXT: POKE S+4,9 srem 177 
88 FOR T=8 TO 500:NEXT:GOTO 68 srem 154 
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Look at line 70. The PEEK (S + 27) AND 224 creates a lower 
frequency. No matter what the value received from PEEK 
(S +27), the frequency value will never be more than 224. 

You can hear even stranger sound effects using ring 
modulation by changing the frequencies of voice 1 and 3. 
Here's an example: 


Program 10-6. Changing Ring Modulation 


18 s=54272 srem 245 
15 POKE S+14,134:POKE S+15,19 trem 22 
16 POKE .S$+3,8:POKE S+2,8:POKE S+14,255:POKE S+15,3 

:POKE S+18,32 trem 193 
18 POKE S+24,15 trem 14 
26 POKE S+5,15:POKE S+6,248 srem 181 
38 POKE S+4,19 srem 218 
589 FOR T=1 TO 8@:POKE S+1,T+@:NEXT srem 133 
55 FOR T=86 TO 1 STEP-1:POKE S+1,T+5@:NEXT :rem 89 
78 GOTO 3g srem 3 


Lines 50 and 55 are where this frequency change is executed. 
Line 50 causes voice 1's pitch to rapidly go from 1 to 80. Line 55 
brings it back down again, but adds a value of 50, so actually it 
drops from a value of 130 to 51. 

Ring modulation is an interesting technique of producing 
sounds. However, since voice 3 cannot be used for another 
purpose if ring modulation is operating, you’re restricted to 
only two voices. If you need more than two voices at a time, 
you'll have to compromise. 


Sound Effects 

Here are two sound effects which use ring modulation. 
Although you may find use for these in your own game, their 
true purpose is to show you what can be created with the SID 
chip and ring modulation. Don’t be afraid of changing values 
in either of these programs. Oftentimes that’s the best way to 
learn. 


Program 10-7. Raygun 

5 PRINT" {CLR} {WHT} {5 DOWN} {YEL}RAYGUN{WHT} SOUND D 
EMO—~-—-- TO HEAR THE NEXT{DOWN} srem 285 

6 PRINT" RAYGUN SOUNDS, JUST HIT ANY KEY. THE 
:rem 296 
7 PRINT" {DOWN}SOUNDS ARE DONE WITH RING MOD. AND B 
Y s:rem 185 
8 PRINT" {DOWN} HITTING ANY KEY YOU ARE CHANGING THE 
srem 213 
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9 PRINT" {DOWN} FREQUENCY OF VOICE 3 TO A HIGHER PIT 
CH. srem 42 

19 POKE 53281,0:S=54272:F=9 rem 176 


15 POKE S+14,25@:POKE S+18,17 srem 31 
26 POKE S,1:POKE S+4,16:POKE S,15:POKE S+6,16:POKE 


$+24,143 trem 254 


25 POKE S+4,21:POKE S+18,17:POKE S+15,F srem 122 
38 FOR X=296 TO 109 STEP-5:POKE S+1,X:NEXT s:rem 88 
35 FOR X=190@ TO @ STEP-1:POKE S+1,X:NEXT s:rem 247 
48 POKE 8+4,208:POKE S+18,16 trem 182 
58 POR T=0 TO 19@:NEXT:F=F+5:IF F=15@ THEN F=l 


:rem 226 
55 GET AS$:IF A$=“" THEN 55 trem 247 
66 GOTO 25 srem 6 


Program 10-8. Ring Modulation Demo 


1 
2 
3 
4 
8 
9 


18 
11 
14 


15 
29 


25 
36 
35 


PRINT" {CLR} {WHT} {2 DOWN} [YEL}"SPC(1@)"RING MODUL 
ATION DEMO{WHT} srem 196 
PRINT"{3 DOWN}]CONTROLS:{5 SPACES}{RVS}F1{OFF} 
{2 SPACES}TURN OFF VOLUME srem 217 
PRINTSPC(14)"{DOWN} {RVS}F3{OFF} {2 SPACES}RAISE F 
REQ. VOICE 3 7rem 37 
PRINTSPC(14)" {DOWN} {RVS} F4{OFF}{2 SPACES}LOWER S 
AME :rem 93 
PRINTSPC(14)"(DowN} [RVS}F5{OFF}{2 SPACES}RAISE F 
REQ. VOICE 1 srem 42 
PRINTSPC(14)"{DOWN} {RVS}F6{OFF}[2 SPACES}LOWER S$ 
AME trem 102 
PRINTSPC(14)”" {pown} {RVS}]F7{OFF}{2 SPACES} INCREA 
SE INTERVAL trem 141 
PRINTSPC(14)"“ {DOWN} {RVS}FP8{OFF}{2 SPACES] DECREA 
SE INTERVAL rrem 129 
POKE 53281,06:S=54272: P=6:P1=160:X1=100 :X2=156 
trem i111 
POKE S+14,208:POKE S+15,P1:POKE S+18,17 :srem 228 
POKE S,1:POKE S+4,16:POKE S+5,15:POKE S+6,248:P 
OKE S+24,143 srem 141 
POKE S+4,21:POKE S+18,17 :rem 187 
FOR X=Xl TO X STEP P:POKE S+l,X:NEXT :rem 4 
FOR X=X2 TO X1 STEP -P:POKE S+1,X:NEXT :rem 104 


36 GET A$:IF AS ="{F1}" THEN POKE S+24,@ :rem 128 
46 IF AS="{F3}" THEN Pl=P1+5:IF P1>258 THEN Pl=25¢0 

:rem 208 
45 IF AS$="{F4}" THEN Pl=P1-5:IF P1<5 THEN P1=5 

zrem 21 

5@ POKE $+15,P1 srem 37 
60 IF A$="{F7}" THEN P=P+1:IF P>20@ THEN P=26 

srem 162 
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70 IF AS="{FS}" THEN P=P-l1:IF P<1 THEN P=1 srem 69 
8@ IF AS="{F5}" THEN X1=X1+5:X2=X2+5:IF X2>25 THE 


N X1=208:X2=258 trem 116 
98 IF AS="{F6}" THEN X1=X1-5:X2=X2-5:IF X1<25 THEN 

X1=25:X2=75 trem 244 
288 GOTO 36 trem 46 
Filtering Sounds 


Another powerful and useful feature of the SID chip is its vari- 
able filter controls. As with any filter, which lets some things 
pass through and stops others, the filters in the SID chip stop 
certain frequencies and allow others to be heard. Filtering 
sounds on the 64 creates purer sounds, sounds without over- 
tones. But the most important thing to remember is the effect 
that filters can have on your game sounds. 

When you use a filter, you'll have to decide two things. 
First, you have three types of filters to choose from. They are 
the High Pass filter, the Band Pass filter, and the Low Pass 
filter. All three are found in register S + 24. By setting different 
bits, you choose the filter. Refer to Table 1, SID Register Table, 
for the bit values. Second, filters are set by selecting a 
frequency cutoff point. This is similar to adjusting the filters’ 
weave. The tighter the weave, the smaller the holes, and the 
fewer sounds let through. 

If you're using the High Pass filter, for example, and set 
the frequency cutoff point, all frequencies higher than that 
point are allowed to pass through unchanged. The opposite is 
true if you use the Low Pass filter. Only frequencies below the 
cutoff point pass unchanged. The Band Pass filter, on the other 
hand, lets only those frequencies close to the cutoff point 
through. 

Registers 21 and 22 set the frequency of the cutoff point. 
Register 23 allows you to switch sounds from any of the 64's 
voices to pass through the filters. Register 24 selects the filter. 
Using these registers, you can choose a cutoff point, select a 
filter, and channel a voice through that filter. By sweeping the 
cutoff point from its lowest to its highest value, you can create 
interesting sound effects. 

Program 10-9 is an example of filtered sound. The program 
creates a rushing sound by using the noise generator of voice 
1. The High Pass filter is used, while the frequency cutoff point 
is changed with a FOR-NEXT loop. 
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Here’s how the program works: 
Line Function 


10 Set variable $ to equal register 0. 

20 Set note frequency in voice 1. Switch on filter for 
voice 1 (S + 23,1). 

30 Select filter (High Pass filter), as well as turn all four 


volume control bits on. This is done with S + 24,79, 
Other two POKEs set ADSR for note. 


40 Set note frequency in voice 3. 

50 Set wave form to noise wave form, turn gate bit on. 

60 Establish variable E F will decrease, starting at 250 
and ending with 2. 

70 Set frequency cutoff point as FE Set note frequency as 
E 

80 Turn gate bit off. 

90 Wait for key to be pressed. 

100 Return to line 50 and execute main loop again. 

Program 10-9. Torpedo 


Remember, do not type the checksum number at the end of each line. For example, do 
‘not type “:rem 123." Please read the article about the “Automatic Proofreader” in 
Appendix E. 


18 $=54272 srem 245 
26 POKE S,28:POKE S+1,5:POKE §+23,1 zrem 148 
3@ POKE S+24,79:POKE S+5,15:POKE S+6,246 trem 165 
46 POKE S+15,39:POKE S+14, 38 trem 225 
5@ POKE S$+4,131 trem 7 
6@ FOR F=258 TO 2 STEP-1.5 srem 57 
78 POKE 8+22,F:POKE S+l,F:NEXT zrem 237 
8@ POKE S+4,130 irem 9 
98 GET AS:IF A$=""_ THEN 92 trem 245 
168 GOTO 54 :rem 47 


The next program is simply a demonstration of the 
filtering capabilities of the 64. After you’ve entered and RUN 
the program, you can hear the differences as you change from 
one filter to another. It begins with the High Pass filter. Once 
you've heard what it can do, experiment and change some of 
the program's parameters. 


Program 10-10. Multiple Filters 


5 REM MULTI- FILTER DEMO :rem 188 
18 GOSUB 286 :rem 115 
18 POKE 53281,0:S=54272:X=6:F=35:RM=149 trem 148 
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POKE S,18:POKE S+1,F:POKE S$+18,16 srem 23¢ 
POKE S+15,RM:POKE S+14,29@:POKE S+23,129:rem 99 


3@ POKE S+4,32:POKE S+5,15:POKE S+6,248 :rem 186 
49 POKE S+21,8:POKE S+129,33:POKE S+24,79 :rem 214 
58 POKE $+4,21:POKE $+22,X trem 164 
66 FOR F=15@ TO 2080 STEP 5:POKE S+1,F:NEXT :rem 15 
78 X=X+8:IF X>255 THEN x= srem 166 
88 GET AS:IF AS="{F7}" THEN RM=RM+5:IF RM>28@ THEN 
RM=2 trem 99 
85 POKE S+15,RM srem 75 
9@ IF A$="{F8}" THEN POKE S+24,9:END :rem 25 
16@ IF AS="{F1i}" THEN POKE S+24,79 :rem 195 
116 IF AS="{F3}" THEN POKE S+24,47 srem 192 
126 IF A$="{F5}" THEN POKE S+24,31 , zsrem 97 
158 GOTO 58 trem 52 
268 PRINT" {CLR} {DOWN} "SPC(11)"{YEL}MULTI FILTER DE 
MO {WHT} srem 219 
219 PRINT"{2 DOWN}{2 SPACES}THIS DEMO PLAYS AN OSC 
ILLATING, RING srem 119 
228 PRINT" {DOWN}MODULATED SOUND AS THE FILTER CUTO 
FF IS{pown} zsrem 43 

236 PRINT"SWEPT FROM BOTTOM TO TOP. CONTROLS ARE: 
{2 Down} trem 76 
24 PRINT" {5 SPACES} {RVS}FI{OFF}{2 SPACES}HIGH PAS 
S FILTER{DOWN} rrem 142 
250 PRINT"{5 SPACES} {RVS}F3{OFF}{2 SPACES}BAND PAS 
S FILTER{ DOWN} srem 134 
262 PRINT"{5 SPACES} {RVS}F5{OFF}[2 SPACES}LOW PASS 
FILTER{ DOWN} srem 1982 
27@ PRINT"{5 SPACES}{RVSIP7{OFF}[2 SPACES]}CHANGE R 
ING MOD. FREQUENCY {DOWN} rrem 16 
288 PRINT"{5 SPACES}{RVS}FS{OFF}{2 SPACES}END DEMO 
:rem 183 
300 RETURN srem 115 


You now have the background needed to create sound 
effects on the Commodore 64. What do you do with them? 
Place them in a game program, your game program. 


Background Sound 
One possible use for sound in a game program is as a back- 
ground, which can be used as a mood producer. Sound can 
influence the way the game is played, even making it more 
enjoyable. Although the sounds you choose for your own 
me may be different than the following example, once 
you've looked through this section, you should be able to 
apply its techniques. 
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If you want a sound to be continuous throughout the 
game, the routine must be included as part of the main loop. If 
you wanted an arcade-like sound, for example, you might set 
up something like this: 

Program 10-11, Background Sound 
Remember, do not type the checksum number at the end of each line. For example, do 


not type “:rem 123.” Please read the article about the “Automatic Proofreader” in 
Appendix E. 


19 §=54272:RM=29 :rem 199 
20 POKE S+1,15:POKE S+5,16:POKE S+6,24@ trem 96 
3@ POKE S+15,RM:POKE S+24,31 rrem 30 
46 POKE S+4,21 rrem 212 
5@ RM=RM-1:IF RM=19 THEN RM=20 rem 177 
68 GOTO 32 rrem 2 


This routine creates a ring modulated effect. 

You still have to add this to the main loop of a program. 
All you have to do is change the line numbers to fit your 
program, and eliminate the last line of the routine. By adding 
this sound routine to the main loop of the “Mission: Nova!” 
game program from Chapter 9, you can hear a constant back- 
ground sound as you play. 


Program 10-12, Main Loop Background Sound 


25 S=54272:MR=28 srem 115 
127 REM srem 126 
128 REM BACKGROUND SOUND ROUTINE srem 14 
129 REM srem 128 


13@ POKE S+1,15:POKE S+5,16:POKE S+6,248 :rem 146 
148 POKE S+15,MR:POKE S+24,24:POKE S+4,21 :rem 252 
15@ MR=MR-1:IF MR=1@ THEN MR=28 srem 226 


The variables S$ and MR are established in the initialization 
section of the program, before the main loop begins. Line 100 
starts the main loop of the Mission: Nova! program. Lines 130- 
140 POKE in the values for the sound we want, while line 156 
varies the frequency of the note in voice 2. Each time the main 
loop executes, this sound is played. 

Try it. You'll notice that the movement slows down some- 
what. This is unavoidable when you place a sound in the main 
loop. It’s a good idea to keep any background sound simple, 
for the more complicated it is, the more the main loop is 
slowed. 


274 


Or Ose Ge OGG Cee Cree Lert. Cre. eee ee es ee ee ees C 


IIIIIAIAIIIIIIIIIAIIIIIIIAIIIIIIID 


Sounds and Music 77! 


Sound Subroutines 

You probably won't want every sound in the game to play all 
the time. Instead, you'll want to hear certain sounds when 
certain events occur on the screen. The sound you hear when a 
player-controlled character is lost, for instance, would fit in this 
category. Perhaps you want a sound when the joystick fire 
button is pressed, or a loud tone when a target is hit. In situa- 
tions like these, the sounds are called by subroutines. 

Unfortunately, when a program goes to a subroutine, it 
leaves the main loop and everything comes to a stop until the 
program returns. Sometimes this is noticeable, and you'll see 
the characters stop on the screen as the sound is executed. Yet 
many games use subroutines, simply because they are easier 
to incorporate into a program. In some games, the delay is not 
apparent. You must make the decision. Will the delay decrease 
the game’s playability? Will the player enjoy it less? If you 
think not, try the subroutine technique. 

Let’s add some sound subroutines to our Mission: Nova! 
program. We'll want sounds for each of the four things the 
starship bumps into. Not only will this make the game more 
entertaining, but it’ll also provide the player with feedback as 
the game is played. The sounds will tell the player what is 
happening without him or her having to visually check each 
movement. 

To add these subroutines to Mission: Nova!, you first have 
to locate the lines which test for contact between screen charac- 
ters. This is done in lines 700-730. 

Line 700 tests to see if the starship is in contact with a 
small star. If it is, the score falls and the ship suffers damage. 
That's indicated by changing the ship’s color. 

Line 710 checks if the ship is on the large space station. 
Remember that the ship is then renewed to full power. 

Line 720 tests to find out if the ship is on the small space 
station. Nothing is added or subtracted for this. 

Line 730 checks for the only remaining possibility, that the 
ship is in contact with a large, nova star. Points are added for 
this. 

Each sound should indicate whether the collision is posi- 
tive or negative. This is how you can provide feedback for the. 
player through sound. 

All four lines must include a GOSUB command, so that 
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the 64 refers to the right subroutine. They could look like this. 


698 REM SMALL STAR :rem 62 
699 REM srem 149 
760 IF W=28 THEN P=P-19@:NC=NC+1:GOSUB 1580:RETURN 

srem 125 
707 REM :rem 138 
7828 REM SPACE STATION :rem 17 
769 REM trem 132 
718 IF W=27 THEN NC=CS:W=38:GOSUB 1558:RETURN 

:rem 135 
717 REM srem 131 
718 REM USED SPACE STATION zsrem 67 
719 REM srem 133 
72@ IF W=38 THEN GOSUB 16690:RETURN srem 175 
727 REM :rem 132 
728 REM NOVA! :rem 218 
729 REM srem 134 
730 P=P+(8*NH)*INT(OQQ-Q) :W=28:GOSUB 1650: RETURN 

srem 73 


Note that each GOSUB is placed before each RETURN command. 
Now the separate sound subroutines can be written and 
placed at the end of the program. 


Program 10-13. Small Star Collision 


Remember, do not type the checksum number at the end of each line. For example, do 
not type “:rem 123.” Please read the article about the “Automatic Proofreader” in 
Appendix E. 


1560 FOR I=@ TO 24:POKE S+I,@:NEXT trem 113 
1518 POKE S+24,15:POKE S+12,160:POKE S+13,252 

srem 137 
1529 POKE S+8,980:POKE S+7,4@:POKE 8+11,129 
1536 FOR I=8 TO 100:NEXT trem 19 
1549 POKE S+1],128:RETURN :rem 186 


This subroutine creates a small explosion sound to indi- 
cate that points have been lost and the starship has been 
damaged. Notice that line 1500 sets all the sound registers back 
to 0, so that previous POKEs to the memory locations don’t 
disrupt the sound. This is good practice when using the 64. If 
you don’t do this, at times the sound will come out different 
than you expected, or perhaps not be heard at all. 

Line 1540 includes a RETURN command so that the 
program shifts back to line 700 after the sound subroutine 
executes. 
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Program 10-14. Meeting the Large Space Station 
1559 FOR I=6 TO 24:POKE S+I,@:NEXT:SP=10 :rem 241 


1566 POKE S,15@:POKE S+1,SP :rem 247 
1572 POKE S+5,0:POKE $+6,248:POKE S+24,15:POKE S+4 
7i7 :rem 128 

1588 FOR SP=19 TO 253 STEP 2:POKE S+1,SP:NEXT 
srem 254 
1598 FOR T=@ TO 160:NEXT: RETURN zrem 62 


As the starship meets the large space station, this subrou- 
tine plays a quick sound which rises in pitch. The routine is 
almost identical to Program 10-3, Frequency Change. Because it 
rises in pitch, it sounds like something filling up, which is what 
the station does for the starship, returning it to its original power 
level. 


Program 10-15. Landing on the Small Space Station 


1690 FOR I=@8 TO 24:POKE S+I,9:NEXT :rem 114 

1618 POKE S,15@:POKE S+1,208:POKE S+5,8:POKE &+6,2 

48 srem 73 

16228 POKE $+24,15:POKE S+4,17 rrem 29 

1636 FOR T=8 TO 19@6:NEXT rem 31 
1640 POKE S+4,16:FOR T=@ TO 19@:NEXT: RETURN 

:rem 232 


Since there is no effect when the starship touches the 
small station, this blip sound works well. It’s identical to the 
One Note program used earlier in the chapter. This sound is 
useful, if only to tell the player that the small station does not 
give the starship an increase in power. 


Program 10-16. Meeting a Nova Star 
1650 FOR I=@ TO 24:POKE S+I,@:NEXT:SP=16 trem 242 


1660 POKE S,15@:POKE S+1,SP srem 248 
1678 POKE S+5,@:POKE S+6,240:POKE S+24,15:POKE S+4 
71? trem 121 

1680 FOR SP=1@ TO 258 STEP 4:POKE S+1,SP:NEXT 
srem 1 
1692 FOR T=@ TO 188:NEXT: RETURN rrem 63 


This subroutine creates a sound almost identical to the 
one used when the starship lands on the large space station. 
The major difference is that in line 1680, the STEP 4 command 
is used. This simply shortens the sound to half of what it was 
in the large space station subroutine. Although the sound is 
again one of filling something up, making it only half as long is 
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appropriate, for the increase in points is not as positive as 
renewing the starship’s power supply. 

Adding these subroutines to the game program does 
increase the player’s enjoyment. Notice the difference in the 
game after you've added these routines. It should be more 
exciting, more entertaining, and easier to play with sound. 


Sound Effect Samples 

To get you started in creating your own sound effects on the 
64, here are six sample sound effects. Using the SID Register 
Table, you should be able to figure out what registers are used, 
and the values POKEd to those registers, for each of the 
effects. You can use these effects as they are now, if they'll fit 
into your game design, or you can change some of the sound 
parameters to create an entirely different sound. 


Program 10-17. Train 


Remember, do not type the checksum number at the end of each line. For example, do 
not type “:rem 123.” Please read the article about the “Automatic Proofreader” in 
Appendix E. 


19 $=54272 ¢rem 245 
106 POKE S+24,15 :REM SET VOLUME HIGH srem 56 
119 POKE S+1,88 :REM HIGH FREQUENCY trem 244 
120 POKE S+5,88 :REM A/D zrem 219 
13@ POKE S+6,245 :REM S/R zsrem 48 
148 FORSP=106096TO25STEP-409 srem 84 
158 Q=SQR{(SP} trem 14 
168 GOSUB58@ :REM DO AN ON/OFF :rem 147 
188 GETAS:IFAS=""THENNEXT srem 25] 
198 Q=25:GOSUB592 srem 222 
20G GETAS: IFAS=""THENL9OG trem 79 
212 END srem 186 
509 POKE S+4,129 :REM START NOISE trem 184 
519 FORI=1TO19+Q:NEXT :REM DELAY srem 186 
528 POKE S$+4,128 :REM BEGIN RELEASE srem 195 
538 FORI=1TO56+0: NEXT: RETURN srem 77 


Program 10-18. Whistling Bomb 


5 §=54272 srem 261 
19 FORI=6T022:POKE S+1I,@:NEXT zrem 18 
188 POKE S+24,15 :REM SET VOLUME HIGH :rem 56 
118 POKE S+5,88 :REM A/D trem 218 
115 POKE S+12,168 :REM A/D srem 68 
128 POKE S+6,255 :REM S/R srem 48 
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125 POKE 5+13,252 :REM S/R zrem 96 
138 POKE S+4,17 trem 9 
144 POKE S+4,16 trem 9 
15@ FORT=255TO58STEP~1 : POKE54273,1 z:rem 36 
155 FORJ=1T05 : NEXT :NEXT srem 4 
168 POKE S+1,16 rem 2 
178 POKE S+8,1 :rem 218 
18@ POKE S+5,112:POKE S+6, 252 :rem 29 
198 POKE S+4,129:POKE S+11,129 srem 84 
288 FORI=1T0209:NEXT srem 222 
218 POKE S+4,128:POKE S+11,128 srem 75 
Program 10-19. Klaxon 
5 $=54272 :rem 281 
1@ FORI=@T022:POKE S+1I,@:NEXT rrem 18 
160 POKE S+24,15 :REM SET VOLUME HIGH rrem 56 
116 POKE S+5,8@ :REM A/D trem 218 
128 POKE St6,243 :REM S/R srem 45 
136 POKE S+3,4 srem 212 
140 POKE 8+4,65 trem 13 
159 FORI=2GTO14OSTEP5:POKE S+1,1:NEXT zrem 28 
155 POKE S+4,64:FORI=1T058:NEXT srem 197 
178 GETAS : IFA$="“THEN149 srem 8@ 
188 POKE S+4,64 :rem 16 
Program 10-20. Landing Saucer 
§ §$=54272 trem 261 
18 PORI=8T022:POKE S+I,@:NEXT rrem 19 
190 POKE 5+24,15 :REM SET VOLUME HIGH rrem 56 
118 POKE S+5,8@ :REM A/D zrem 218 
128 POKE S+6,243 :REM S/R trem 45 
138 POKE S+3,7 trem 215 
140 PORJ=5@TO17STEP-1:POKE S+4,65 rrem 191 
158 POKE St1,J:FORI=1T0200 :NEXT trem 112 
155 POKE S+4,64:FORI=1T050:NEXT srem 197 
178 GETAS : IFA$S=""THENNEXT rem 256 
Program 10-21. Gong 
5 $=54272 srem 261 
10 FORI=6T022:POKE S+1I,@:NEXT srem 18 
100 POKE S+24,143 +REM SET VOLUME HIGH rrem 106 
119 POKE S+5,16 :REM A/D trem 217 
115 POKE S+19,16 :REM A/D srem 19 
12@ POKE S+6,252 :REM S/R zrem 45 
125 POKE S+28,249 :REM S/R rrem 199 
14@ POKE S+4,21:POKE S+18,17 :rem 233 
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159 POKE S+1,68:POKE S+15,42:FORI=1TO20@:NEXT 


trem 115 
155 POKE S+4,2@:POKE S+18,16:FORI=1TO40@:NEXT 

srem 117 
170 GETAS :IFAS=""THEN149 trem 88 
Program 10-22. Siren 
5 $=54272 trem 221 
16 FORI=@T022:POKE S+1,@:NEXT rrem 18 
108 POKE S+24,143 :REM SET VOLUME HIGH srem 186 
118 POKE S$+5,16 +:REM A/D :rem 217 
115 POKE $+19,16 sREM A/D srem 19 
12@ POKE S+6,252 :REM S/R trem 45 
125 POKE S+20,249 :REM S/R srem 168 
14@ POKE S$+4,21:POKES+18,17 :rem 233 
15@ POKE $+1,2:POKE S+15,34:FORI=1T020@:NEXT 

srem 56 

151 POKE S+4,28:POKE S+18,16:FORI=1T039@0:NEXT 

rrem 112 
152 POKE S+4,21:POKE S+18,17 srem 236 
153 POKE St1,2:POKE S+15,3@:PORI=1T0296:NEXT 

srem 55 

155 POKE S+4,26:POKE S+18,16:FORI=1T03909 :NEXT 

rrem 116 
168 GETAS:IFAS=""THEN149 trem 79 


All but the Whistling Bomb sound effect can be stopped by 
pressing any key. 


Make Use of Sound 

As you've seen, sound can make a program more complex. It 
also complicates your decision-making process as you deter- 
mine what kind of game you want to create and what sound 
effects you want to use. Yet it’s worth the time and effort to 
include sound, simply for the impact it has on a game. A game 
without sound is just not a game to most players. Something 
vital is missing. 
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Introductions, 
Instructions, and 
Farewells 


Introductions, instructions, and farewells add an element that 
every player appreciates, another dimension to the game world 
youve created. Just like sound effects or custom characters, 
they are not absolutely necessary, but without them your game 
will seem pale and one-dimensional. Introductions and fare- 
wells make the game more interesting, entertaining a player 
while a screen display is set up, or providing incentive to play 
again for a higher score at game’s end. Without instructions, a 
player couid be confused or frustrated at the outset while 
trying to discover cursor directions, scoring, procedures, or 
the goals of the game. 

Even though introductions and instructions appear at the 
opening of a game, this part of game design is best approached 
after your program has been written. Through the constant 
changing and revising of your program, it is probably not until 
this point that you know exactly how your game will appear. 
Of course, there are exceptions, for you may have your design 
well-outlined before you begin to program. 


Introductions 

Introductions can take many forms and shapes. Perhaps you 
want another sound effect, or a short piece of music, to enter- 
tain the players while they wait for the game screen to set up. 
A brief description of the game situation can be inserted. This 
can heighten the player's involvement in the world you've 
created. At the very least, you'll want to display the title before 
the game begins. 

Since you've already written your program, you probably 
won't be able to place the introduction at the beginning 
without renumbering the entire program. A simple way to 
solve this problem is to place the introduction in a subroutine 
that is called by the first line of the program. In the sample 
game from Chapter 9, “Mission: Nova!,” it would look like this: 


5 GOSUB 17892 :rem 125 
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The program would then move to the subroutine and execute 
the introduction, returning to the opening of the program. The 
following example subroutine can be inserted into the Mission: 
Nova! program to serve as an introduction. 


Program 11-1. Introduction 


Remember, do not type the checksum number at the end of each line. For example, do 
not type “:rem 123.” Please read the article about the “Automatic Proofreader” in 
Appendix E. 


1788 PRINT"{CLR}":POKE 53281,15 rrem 42 
1785 PRINT "{2 DOWN}{16 RIGHT} {BLK}STARMOVE” 

srem 145 

1716 Print "£2 pown}{2 RIGaT}{BLU}]MANEUVER YOUR ST 

AR SHIP ACROSS THE" zrem 225 

1726 PRINT *{2 RIGHT}]GALAXY." rrem 201 

1736 PRINT "{2 DOWN}{2 RIGHT}AVOID THE STARS AND R 

EFUEL AT NOVAS.” rrem 185 

1748 PRINT "{2 DOWN}{2 RIGHT}LAND AT THE SPACE STA 

TION FOR POWER.” trem 199 

1756 PRINT "{6 powN} {2 RIGHT}HIT ANY KEY TO CONTIN 

UE" trem 252 

1755 GBT AS:IF A$="" THEN 1755 srem 199 


As the pen runs, notice that the screen changes color. 
This is a nice e that is done simply by POKEing a different 
value into location 53281. The only thing to be careful of, 
however, is that the screen will still display your words. If the 
screen background color is the same as the character color, then 
the words will seem invisible. 

It is also simple to change the character color of the title, as 
was done in this sample subroutine in line 1705. Again, it may 
be difficult to see the different color unless you’ve chosen one 
considerably different from the background. Experimenting 
with several: variations takes only a little time and cannot harm 
your program. To turn the character color back to the original, 
simply insert the proper keystrokes within the next PRINT 
statement. In line 1710 this was done by hitting CTRL and 
BLUE at the same time. 

It's a good idea to double-space between each line, or 
between your short paragraphs, as was done in the sample 
subroutine. This makes it easier to read. Notice, too, that the 
lines are justified on the left. This can be done several ways. 
First of all, you can just print the lines from the leftmost 
column. Sometimes, if you have short lines, you will want to 
indent. You can either use the cursor commands within the 
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quotation marks or you can use the TAB command to indent 
every line the same distance. The statement: 


PRINT TAB(1)“MANEUVER YOUR STAR” 


would print the line one column from the left, in the second 
column. You could replace line 1710 in the sample subroutine 
with this line, for instance. 

Although you have only one screen so far, often you'll use 
a lengthy introduction, with several screens of print. Instead of 
scrolling the introduction or printing it one line at a time at a 
slow speed, it may be easier to display each screen of print 
separately. At the end of each screen, as in Program 11-1, you 
could add the line: 


PRINT “HIT ANY KEY TO CONTINUE” 
followed by: 
GET A$:IF A$=“ “THEN 1x 


where xxx is the line number of the GET A$ command. 

This holds the screen until the player presses a key, then it 
displays the next screen. At the end of the PRINT statements 
for the last screen, be sure to include a RETURN command. 

Our sample subroutine takes up only one screen so far. If 
that’s all you’re using, to return to the game program you need 
only add a line such as this: 

1758 FOR T1=@ TO 5600:NEXT: RETURN 

The delay gives the player enough time to read the introduc- 
tion. If your instruction is longer or shorter, you can alter the 
delay loop accordingly. 


Introduction sound. Adding sound is quite easy. Before 
the program RETURNS, insert the POKE statements for what- 
ever effect you want. The sound then plays before the game 
begins and while the introduction is on the screen. 

Here’s an example of a sound effect you can add to 
Mission: Nova! 


Program 11-2, Introduction Sound 


Remember, do not type the checksum number at the end of each line. For example, do 
not type “:rem 123.” Please read the article about the “Automatic Proofreader” in 
Appendix E 


1998 FOR I=8 TO 24:POKE S+I,@:NEXT:F=08 trem 98 
1915 POKE S+14,250:POKE S+18,17 srem 137 
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1928 POKE S,1:POKE S+4,16:POKE S,15:POKE S+6,16:PO 

KE 8+24,143 :rem 144 
1925 POKE S+4,21:POKE S+18,17:POKE S+15,F :rem 228 
1936 POR X=20@ TO 196 STEP~5:POKE S+1,X:NEXT 


:rem 194 

1935 FOR X=108 TO @ STEP-1:POKE S+1,X:NEXT :rem 937 

1946 POKE S+4,28:POKE S+18,16 trem 32 
1958 FOR T=@ TO 19@:NEXT:P=F+5:IF F=159 THEN F=1 

trem 76 

1966 GET A$:IF AS="" THEN 1525 srem 192 

1978 RETURN :rem 177 


This is a version of the raygun sound in Chapter 10. All you 
need to do is add this sound subroutine, along with this line at 
the end of the introduction routine: 


1755 GOSUB 1986 srem 28 
Now the sound routine will play until a key is pressed, which 
will then send it back to the program. 


Instructions 
Before the game starts, the player must know how to play the 
game. On some arcade games, this is done with printed docu- 
mentation on the game machine. Since you can’t print instruc- 
tions on every player's Commodore 64, the method you'll want 
to use is documentation within the game program. This is 
where the player finds out such things as: 

« How to start the game 

* How to move the player-controlled characters or sprites 

* The game scenario, or story line 

* How points are awarded or subtracted 

* How extra turns of player characters are earned 

- Explanations of the different game levels 

+ Details of any special game features 

At the very least, you'll want to tell the player how to 
move user-controlled characters. If it’s a joystick-controlled 
game, a note that a joystick is needed would be sufficient. If 
the keyboard is used to control the character, more explanation 


is necessary. 
Program 11-3. Instructions 


Remember, do not type the checksum number at the end of each line. For example, do 
not type “:rem 123.” Please read the article about the “Automatic Proofreader” in 
Appendix E. 


1768 PRINT “{CLR}{3 pOWN}{2 RIGHTJHIT F5 KEY FOR ‘ 
up*" zrem 194 
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1778 PRINT "{2 DOwN}{2 RIGHT}HIT F7 KEY FOR ‘DOWN' 


:rem 189 

1789 PRINT "{2 DOWN}({2 RIGHT}]HIT COMMODORE KEY FOR 
"LEPT' “ :rem 288 

1799 PRINT "{2 powN}{2 RIGHT]HIT SHIFT KEY FOR ‘RI 
GHT'" srem 253 

1890 PRINT "{6 DOWN}{2 RIGHT}HIT ANY KEY TO CONTIN 
UE” srem 248 

1826 GET A$:IF AS="" THEN 1826 srem 185 


If the keys are not next to each other, this may be the best 
way to tell the player which keys move the character each 
direction. Note that the GET A$ statement is used again to 
hold the screen until the player is ready to continue. 

Your game may use keys that are placed next to each other 
on the keyboard. For example, your game may use a diamond- 
shaped pattern for character control. If that’s the case, then you 
may want to display something like Figure 11-1 on the screen, 
showing the corresponding directions and making it easier for 
the player to understand. 


Figure 11-1. Keyboard Display 
@ 


= Commodore Shift 


t F7 


The TAB command makes it easy to set up a screen like 
this by positioning the lines of explanation in the right place. 

Scoring is another item you may want to include in the 
instructions. Every player wants to know how points are 
scored, by what criteria, and toward what goal. These instruc- 
tions do not have to be lengthy, as the following routine for 
Mission: Nova! shows: 


Program 11-4. More Instructions 


Remember, do not type the checksum number at the end of each line. For example, do 
not type “:rem 123.” Please read the article about the “Automatic Proofreader” in 
Appendix E. 


1830 PRINT "{CLR}{2 DOWN}{2 RIGHT]SCORE POINTS BY 
{SPACE}REFUELING AT NOVAS." srem 1087 
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1849 PRINT "{2 DOWN}{2 RIGHT}POINTS DEDUCTED FOR ¢c 


RASHING INTO” srem 137 

1858 PRINT "{2 RIGHT}STARS AND TAKING TOO MUCH TIM 

E." srem 115 

1866 PRINT “{2 DOWN}{2 RIGHT}YOU CAN CRASH INTO EI 

GHT STARS“ srem 116 

1878 PRINT "{2 RIGHT}BEFORE LANDING ON THE SPACE $ 

TATION.“ trem 197 

1880 PRINT "{2 DOWN}{2 RIGHT}THE GAME ENDS WHEN YO 

UR SHIP'S POWER" srem 223 

1899 PRINT "{2 RIGHT}IS GONE." srem 288 
1895 PRINT ?°{6 DOWN} {2 RIGHT}HIT KEY TO START." 

rem 117 

1896 GET AS:IF A$="" THEN GOTO 1896 trem 12 

1897 RETURN srem 185 


If your game is quite complex, more than one screenful of 
print may have to be seen by the player. Again the GET A$ 
statement lets the player read at his or her own pace, then 
move on. Note that at the end of this routine, in line 1897, the 
RETURN statement finally appears, sending the program to 
begin the game’s screen setup. 


Setting Difficulty 
At times, you'll want to allow the player to set the level of diffi- 
culty in the game. If your game lends itself to this, a player can 
begin at the easiest level and progress to the more difficult. A 
game such as Tempest, which lets the player choose the starting 
level, is a good example. It will seem that there are actually 
several games in one if the levels are considerably different. An 
ideal place to do this is in the instructions, before the game 
begins. The INPUT or INPUT#1 commands can be used. 
Again, a subroutine called at the program's outset is one 
way to do this. The game “Spark” from Chapter 9 is one in 
which levels could be set using the statement: 
5 GOSUB 8d trem 77 
You must also eliminate the P= 300 expression from line 50 of 
the original version of the Spark program. If you don’t, the 
following subroutine will not work properly. 


Line Function 
800 Clear the screen and POKE in a screen color change. 
810-840 Print the instructions for setting the different levels of 
play. Note the { BLU} keystroke in line 810. This sets 
the character color back to blue. The program will 
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alter the character color after it has run once if this is 
omitted. 

Used to create the INPUT#1 command in the next 
line so that a ? prompt will not appear on the screen. 
The INPUT#1 command delays the program until 
the player provides a response. This command is 
very useful when asking for information from the 
player. The CLOSE #1,0 statement completes the 
instruction begun in line 860. 


880-900 Test for the number pressed by the player, and then 


set the value of P accordingly. P is the time remaining 
before the game ends. In other words, the most diffi- 
cult level begins with less time for the player to 
complete the game. Notice that each line has a 
RETURN statement at its end. The program then 
moves back to line 5, and the game program begins 
setting up its screen. 


Program 11-5. Spark Levels 


Remember, do not type the checksum number at the end of each line. For example, do 
not type “:rem 123.” Please read the article about the “Automatic Proofreader” in 


Appendix E. 
808 PRINT "{CLR]}“:POKE 53281,7 :rem 283 
816 PRINT "{3 DOWN}{2 RIGHT] {BLU}CHOOSE LEVEL OF P 
LAY BY HITTING KEY" rrem 149 
815 PRINT "{2 RIGHT]AND PRESSING {RVS] RETURN{OFF}" 
rem 107 
920 PRINT “{2 DOWN}{2 RIGHT}1"TAB(S)” EASIEST” 
zsrem 178 
830 PRINT “{2 DOWN}{2 RIGHT}2"TAB(8) "HARDER" 
srem 84 
840 PRINT “{2 DOWN}{2 RIGHT}3"TAB(8)"“DIFFICULT":PR 
INT: PRINT: PRINT zrem 143 
868 OPEN 1,2 :rem 93 
870 INPUT#1,A$:CLOSE 1,8 zrem 81 
88@ IF A$="1" THEN P=300:RETURN srem 175 
899 IF AS="2" THEN P=200:RETURN srem 176 
960 IF A$S="3" THEN P=10%:RETURN srem 168 


As you program more involved games, you'll find uses for 
this method of setting levels of difficulty. Even if you are now 
designing a game that does not lend itself to this, keep it in 
mind for ater. 
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Farewells 

The final addition to your game should be a farewell, or end 
routine. As with the introductions and instructions, this can be 
as elaborate or simple as you want. Some farewells are strictly 
entertaining, nudging the player back into the game, 
persuading the player to try it again, perhaps just to see the 
end routine. Other farewells are more informative, giving the 
final score, showing a high score, ranking the player, or asking 
if another game is wanted. Just as with the introductions and 
instructions, you can insert this as a subroutine. 

A simple farewell, which records the final score, prints a 
short message, and allows the player to begin a new game, 
would take only a few lines in a program. In the example game 
Spark, the score was assigned the variable P in the program. If 
the player won, the user-controlled character exited the maze, 
and the game was over. Running out of time caused P to equal 
0, and so ended the game. There were only two possible ways 
to end, Placing a GOTO command at both program lines could 
be done this way: 


170 IF CuH<@ THEN 616 rrem 228 
and 
338 IF P=8 THEN 602 :rem 167 


When the character exits the maze, then, the program 
shifts to line 610. If the player loses the game by running out of 
time, the program goes to line 600. At that point, the following 
routine could be used: 


Line Function 

600 Print the message that the player ran out of time and 
scored 0 points. The first PRINT command is used to 
force the message to print below the maze. Program 
then shifts to line 620. 

610 If P>0, then the player has won and this message is 
printed on the screen, along with the final score. 

620 Drop four lines to display the message allowing the 
player to try again. 

625 This POKE is necessary to clear the keyboard buffer 
of any characters typed in during the preceding 
game. If this is omitted, the next line will execute 
immediately, for the 64 will read the buffer and 
assume a key was pressed for line 630. 

630 GET A$ simply waits for a key to be pressed by the 
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player before continuing. 

640 Return the program to the beginning. Notice that the 
player is returned to the level-setting routine, so that 
the level of difficulty can be changed. 


Program 11-6. Spark End 


Remember, do not type the checksum number at the end of each line. For example, do 
not type “:rem 123” Please read the article about the “Automatic Proofreader” in 
Appendix E. 


69@ PRINT:PRINT “{CLR}{3 DOWN}{2 RIGHT}TOO LATE! 
{2 RIGHT}SCORE IS @":GOTO 626 :rem 244 
618 PRINT:IF P>@ THEN PRINT "{CLR}{3 Down} 
{2 RIGHT}YOU MADE ITI{2 RIGHT}SCORE IS“P 


:rem 31 

626 PRINT "{4 DOWN}{2 RIGHT}TO PLAY AGAIN, HIT ANY 
KEY“ trem 2 

625 POKE 198,80 trem 282 
63@ GET AS:IF AS="" THEN 639 :rem 85 
642 GOTO 5 srem 8 


A more complex end routine could include sound, as well 
as display a final score and ask the player whether another 
game is wanted. Inserting sound into an end routine can be 
difficult at times, depending on how your game program is 
organized and where you want the sound to play. One way to 
create sound in an end routine is by using another subroutine 
called when the game is over. The sample game Mission: Nova! 
could use this technique, and the program could appear as: 


Line Function 

905-979 The landing saucer sound effect is created. This is 
identical to the effect included in Chapter 10. 

980 Print final score and ask the player whether another 
game is to be played. 

985 The delay allows the player time to decide if he or she 
wants to play another game. If so, the PEEK 
command reads the keyboard and sends the program 
to the appropriate lines. If another game is not 
wanted, then the program will end in line 990 after 


the delay. 
Program 11-7. Mission: Nova! End 
985 S=54272 trem 56 
919 FORI=9T022:POKE S+1,@:NEXT srem 67 
929 POKE S+24,15 :REM SET VOLUME HIGH srem 66 
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938 POKE S+5,88 :REM A/D trem 228 
948 POKE S+6,243 :REM S/R :rem 55 
958 POKE S+3,7 rrem 225 
969 FORJ=50TO17STEP-1:POKE S+4,65 :rem 281 
970 POKE S+1,4:FORI=1T0299:NEXT srem 122 
975 POKE S+4,64:FORI=1LTO5@:NEXT ¢rem 117 
979 NEXT trem 232 


989 PRINT "{CLR}{2 DOWN}{2 RIGHT}"P” POINTS":PRINT 
:PRINT"{2 DOWN){2 RIGHT]PRESS ANY KEY TO PLAY 


{SPACE }AGAIN" trem 151 
985 FOR I=@ TO 3000:A=PEEK(197):IF A<>64 THEN GOSU 

B 45@:GOTO 280 trem 187 
998 NEXT I:END srem 59 
Design Notes 


Programming introductions, instructions, and farewells can be 
challenging and exciting, for each addition to your game will 
make it that much more professional in appearance, as well as 
more playable and entertaining. Although we've considered a 
number of different concepts to include in your game introduc- 
tions, instructions, and farewells, there are a few more sugges- 
tions for your use. 

Be personal. If the player is asked to INPUT his or her 
name and then sees it printed in the instructions, or even 
beside the user-controlled character, the player will be drawn 
deeper into the game's world. Within the farewell, the player's 
name could also be printed alongside the final score. These 
human touches add to any game, as you've probably noticed 
when you've played video arcade games. 

Make use of the color abilities of the 64. Changing screen 
colors certainly adds to the game, but reversed or colored char- 
acters will add even more, especially in the introduction and 
instructions. With memory available, you can alter the screen 
and character colors with every new screen display. 

Urge the player to play another game by including a 
friendly ending. It doesn’t have to be something cute, just 
enough to make another game worth the time. Proclaim the 
player's victory, hand out promotions or rankings. Your imagi- 
nation as the game designer can come into play here. Crea- 
tivity is what makes one game stand above all others. 

Your game program is almost completed. You’ve gone from 
the idea to writing the end routine. There are a few more 
things to consider, however, in the next chapters. 
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The Shape of the 
Game 


We’ve gone through most of the techniques you'll need to 
create your own games. Now all you really need to do is hack 
through the actual programming. The word “hack” is pretty 
accurate for most of our programming. No matter how logical 
you are, chances are pretty good that the computer is even 
more logical, and you'll write many a routine that should 
work-——but doesn’t. At least J certainly program that way 
sometimes, like a clumsy woodcutter taking one hack after 
another until finally he splits the log. 

And it works. Eventually, even the most stubborn 
programming problem will yield to your constant work. 

There are ways you can make things easier for yourself, 
and in the meantime make your programs run as smoothly 
and quickly as possible. However, the programming tech- 
niques in this chapter are not “rules’—they’re just advice. 
Good advice, I think, that has helped me in my programming, 
but remember: any game that plays well is a good game, even 
if the programming isn’t pretty. So don’t be concerned if you 
fudge a bit here and there. If it works, it's correct. 


Program Structure 
In most of the programs in this book, I've tried to structure my 
code with three purposes in mind: 


1. Make it easy to understand. 
2. Make it run fast. 
3. Use up the least possible memory. 


Ease of Understanding 

Why should you make your programs easy to follow? After all, 
you're writing a game for yourself, not example programs ina 
book. Nobody's ever going to see your programming, just the 
results. 

There's one exception. You. 

You will look at your program again and again. Sometimes 
there'll be days, weeks, or months between programming 
sessions. You'll look at your own program then and wonder 
what in the world is going on. You'll forget where the value of 
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obscure variables was set. You'll forget why line 55 had to come 
before GOSUB 590. You'll forget that there are three different 
ways to get into the routine at 400. 

That's inevitable. It happens to everybody. And you can’t 
prevent it entirely. What you can do, though, is follow several 
simple programming rules. 

Establish patterns and habits. Start routines on even 
hundred lines—100, 200, 300, 400, and so on. That way you’ll 
be able to look at an entire routine just by typing LIST 300-399. 
Sometimes I bend this rule by starting a very short routine at 
an even fifty—450 or 550. And in this book I have sometimes 
put at line 990 a single-line loop that is used many, many times 
throughout a program. For instance, a loop that reads the 
keyboard and waits for the player to press a key. 

The important thing is to have habits. For example, in this 
book you always know that if I have a GOSUB or GOTO 100, 
200, 300, 400, and so on, the program is going to a main 
routine. You can quickly scan through each routine, see what 
each one does, and then know instantly which routine is being 
called at each GOSUB and GOTO, You know that if a GOSUB 
or GOTO ends in 50, it’s a small routine. AGOSUB or GOTO a 
line ending in 90 is a one-line routine called many, many 
times. 

Of course, you may prefer to develop different program- 
ming customs. But whatever habit you follow, the more consis- 
tent you are, the more easily you'll be able to follow your own 
programs. 

Put similar things together. If all your collision-handling 
routines are located together, you won't have to spend half an 
hour poring over your program to find out where a particular 
collision is taken care of. You'll know that it’s between 700 and 
799. If all your DIM statements are in the first line of the 
program, you'll never have to hunt around to find out why 
you're getting a BAD SUBSCRIPT error. 

This principle extends even to tiny matters. If you’re 
creating variables to control ten different onscreen figures, 
why not give their location in screen memory and in color 
memory and their color value and character code the same vari- 
able name? If you use L for the player-figure’s location, then 
use L1, L2, L3, L4, and so on for the computer-controlled 
figures. An even better practice might be to use arrays: L(n) is 
the address of the screen location of each of the ten figures; 
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CL(n) is their address in color memory; FG(7) is the character 
to be POKEd to the screen; and C(m) is the color to be POKEd 
into color memory. 

You can even use M(n) to hold the number that should be 
added to L(n) for each computer-controlled character’s move- 
ment. The variable S(n) can hold each figure’s new starting 
address. And E(z) can hold the ending address. 

Think how easily and economically you can program all 
the movements then. Line 300 starts the loop of our example 
and erases each figure at the old location in screen and color 
memory. 


398 FOR I=@ TO 9:POKE L(I),32:POKE CL(1I),0C 


Line 310 changes the locations: 
31@ L(I)J=L(1)4+M(1):CL(1)=CL(1I)+M(1) 


Line 320 checks for collisions with the player-figure and checks 
to see if the figure has reached the end of its journey: 


320 ON-{PEEK(L(I)}=FG)}-2*(L(I)=E(I)}GOSUB 480, 498 


Line 330 actually carries out the movement by POKEing the 
figures onto the screen in the new locations: 


330 POKE L{I),FG(I):POKE CL(I},C{I):NEXT 


Vital parts of this are the subroutines at 400 and 490, Since we 
haven't created an entire program here, I won't try to create 
the collision subroutine, but the routine at 400 would need to 
change the score, decide whether the player-figure should win 
or lose the encounter, and assign new addresses, if necessary, 
to both the player-figure and the computer-controlled figure. 

We can be more specific with the miniroutine at 490. 
Remember that the program reaches this line only if the 
figure’s screen location matches its ending location. Therefore, 
all we need is: 


499 CL(I)=CL(1)~(L(1)-S(1))2L(1)=S(1) :RETURN 


And that's it. By giving all your onscreen figures the same 
name, with subscripts, you can assign all their values in loops 
using DATA statements, and you can handle their movements 
and their collisions in a single routine. You have saved 
memory, you have probably saved running time, but above all 
you have kept the routine simple and easy to follow. 
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Label your work. Just because you’re using a computer 
doesn’t mean you can’t write things down on paper. It’s a good 
idea to keep a list of what each variable is used for in each 
program you work on. That way you won't accidentally use a 
variable you've already got doing something else somewhere 
else in the program. 

You can write down where each major subroutine is. You 
can write down key line numbers or areas where you plan to 
put subroutines. 

Most important of all, however, is simply to label your 
tapes and disks, both externally and internally. There’s nothing 
more frustrating than working for hours on a program only to 
realize that the version you're working on is not the most 
recent one, that all of the improvements from your last 

ogramming session are saved somewhere else. I’ve made it a 
habit to put the date at the beginning of my program. Some 
people put the date in REM statements, so you'll see it when 
you LIST the program. I put it right in a PRINT statement, so 
the date of this version will be flashed on the screen. That way 
I can keep track of which version of my game I am working on. 


Programming for Speed 

With game playing, it is not real speed that is important, but 
the illusion of speed. The game has to feel fast. A game with 
figures that only inch along the screen can feel fast to the 
player as long as his own player-figure responds quickly and 
moves fairly fast. This means that your program, to feel fast, 
should check for player input as often as possible, and should 
have as few things as possible happen between player-figure 
movements. 

The main loop. The key is to keep the main loop as tight 
as possible. The fewer things the program has to do every time 
it goes through the loop, the better. The main loop is really 
there just to perform tests, to see what should happen next. 

You keep the main loop tight by testing for minimal condi- 
tions and then jumping to subroutines to check the details. 
Many things can be kept out of the main loop entirely. For 
instance, collisions should almost never be checked in the 
main loop. Why? Because collisions can happen only when 
something moves into the same space as something else. 
Therefore, why check for collisions unless something has 
moved? Collision-checking always belongs in movement 
loops. 


298 


CMG EIEN ES eG OG Cl OC Cr € Cece CaGa CeO GC C2 Ore CC 


~ 
= 


2.2 DDD DD PDD DT DDD POS ID OD DO EO 


The Shape of the Game 


Main loops generally need to do the following: 

* Check the timer for all timed events (a timer countdown, 

regular screen changes, etc.). 

* Check the keyboard or joystick for the player's 

instructions. 

* Control the computer-controlled figures’ actions. 

* Control any continuing background sound. 

Be selective. That’s a short list, but it can still be far too 
long. To keep up the illusion of speed, you need to be selec- 
tive—not all those things need to happen every time through 
the loop. 

For instance, suppose you wanted to control the ten 
computer-figures whose movement we just programmed. 
Instead of putting them in a FOR-NEXT loop and moving ali 
ten of them every time, why not access 300 as a subroutine 
with a random value? If the main loop contained this line, 
you'd get a very interesting effect: 


129 I=INT(RND(9)*18):GOSUB 306 


With this line as the only access to the computer-controlled 
figures, only one computer-figure will move each time the 
player-figure has a chance to move. There won't be such a long 
delay between the player-figure’s movements. Even though 
each computer-controlled figure moves in the same pattern 
every time, you never know which one will move next. The 
computer-figures will actually move much more slowly, but 
because the player-figure will move faster and the computer- 
figures will be more random, the game will fee! much faster 
and more exciting. 

Use a single timer. If you try to control lots of events using 
a separate timer, you'll fill up your main loop with statements 
like A=A+1:IF A>10 THEN A =0:GOSUB 500. Every arith- 
metic operation slows down your program, and so does every 
IF statement. Why not share a single timer? 

Let's say you have three events to control. Subroutines 500 
and 700 should happen only rarely; subroutine 800 must 
happen often; and subroutine 900 has to happen every other 
time through the main loop. That timer variable A can do triple 


duty: 
12@ A=A+1:ON A GOSUB 906, 70%,980,880,999,500,9980,8 
@8-:IF A=8 THEN A=0d 


299 


GEES The Shape of the Game 


There it is—one mathematical operation and one GOSUB each 
time through the loop. Subroutines 700 and 500 will be 
executed only once in every eight passes through the main 
loop. Subroutine 800 will be executed twice as often, and 
subroutine 900 will be executed every second pass. Yet a single 
handler accesses them all. 

This kind of timer routine, however, is not regular. 
Anything that stops the main loop from executing will also 
delay those subroutines. A missile firing or a collision that 
stops the action will also keep line 120 from executing, so it 
will be longer before the next action occurs. Regular move- 
ments (like the scrolling of the screen in our Mission: Nova! 
game) and countdowns that should reflect realtime must be 
controlled using the TI$ function. Remember, though, not to 
use equal signs with TI. For instance, this line could be a 
disaster: 


IF VAL(TI$) = 7 THEN TI$ = “000000” :GOSUB 500 


What's wrong with it? Well, TI$ will have a value of 7 
for only a second. What if this line executes once when TI$=6, 
but then the program happens to carry out a time-consuming 
collision routine before the next pass through the main loop? 
TI$ will have a value of 9 or 10 by then, so this line will never 
execute again. Instead, you'll want to use this statement: 


IF VAL(TI$)>6 THEN TI$ = “000000":GOSUB 500 


Now, whether TI$ is 7 or 70, this line will snag the program 
and send it out to 500 at nearly the right time. 

Stop the action. Sometimes you can stop the action 
completely to carry out some task, and the player won't feel 
that the game has been slowed down at all. For instance, when 
the player-figure collides with something, you can stop for an 
elaborate collision routine, with animation and sounds, and 
the player won't feel like it slows down the game—it will 
actually make it more exciting, and it will feel faster. Likewise, 
when the player fires a missile, or when an opposing figure 
first comes on the screen, you can take some time with it. 

Stopping the action is fine; what you must avoid is a long 
time-lag between the player giving an instruction and the 
player-figure carrying it out. If the player is getting a quick 
response during the action phases of the game, you can take as 
long as you like in the other sections. 
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Memory and Video Bank Selection 
Memory’s not something you often worry about with the 
Commodore 64, but it’s nice to know it’s there. Unlike other, 
smaller computers, the 64 has enough memory to satisfy even 
the most advanced game programmer. You'll seldom find that 
you're running out of memory space when you create your 
own game programs. 
However, the 64 can give you problems when you're 
designing that especially long game. Although the computer 
has 64K of RAM (Random Access Memory), the VIC-II chip 
can read only one bank of 16K at a time. This is an important 
concept, for in order to operate properly, the VIC-II chip must 
be able to find a number of different things in the block it is 
reading. To perform all its assigned functions, the VIC-II chip 
must be able to find: 
* A character set to use. This is normally provided by the 
ROM character generator. 

- An area to use as screen memory. Normally, this is at 
locations 1024-2023. 

* An area for color memory. Fortunately, this never 
changes. It is always located at addresses 55296-56295. 

«If sprites are used, the sprite DATA must be in this same 

16K bank. 

«When custom characters are used, the DATA used to 

create them must also be located in this bank. 

The VIC-II chip can access only one 16K bank at a time. 
When the computer is first turned on, the bank located at 
addresses 0 to 16383 is accessed. For an explanation of the 
other banks, and their locations, refer to Chapter 1. 

Why would you want to switch so that the VIC-II chip 
could read another bank? If your program was quite long, over 
14K, or if you are designing a custom character set and have a 
lengthy game, you'll want to use bank switching. This was 
first explained in Chapter 1, so if you’ve forgotten how to 
switch banks, or skipped over that section earlier, refer to it 
now. You've also seen how to relocate custom character sets, a 
technique demonstrated in Chapter 4. 

Another use for bank switching is when you're planning 
on using high-resolution graphics. We haven't looked at this 
excellent tool of the 64, primarily because of its complexity, but 
there are references available which will give you more infor- 
mation. There is a short list of other resources, including those 
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which explain high-resolution graphics, in the back of this 
book. 


Video Banks 

Bank 0, the normal section of the computer that the chip 
reads, sees RAM from 0 to 4095 and from 8192 to 16383. The 
ROM character generator is in the area from 4096 to 8191. 
Screen memory normally is located from addresses 1024 to 
2023. 

Bank 1 sees RAM from 16384 to 32767. There is no char- 
acter generator in this bank. 

Bank 2 sees RAM in locations 32768 to 36863 and from 
40960 to 49151. The ROM character generator is located at 
addresses 36864 to 40959. 

Bank 3 is similar to Bank 1. It sees RAM from locations 
49152 to 65535. There is no character generator in this bank. 

It is possible to use all four banks during the course of a 
program simply by switching from one to another as the 


program executes. There are a number of things you should be 


aware of, however, before you begin switching banks on the 
64. 
Character sets. To use Banks 1 or 3, you'll have to create 


your own character set, or copy the existing one into an area of 
memory within that bank. If you don’t, you won't have a char- 


acter set to use, since neither of these banks includes a ROM 
character generator. 
Screen memory. If you change banks, remember that you 


will aiso have to relocate screen memory. This is true if you use 
any bank but Bank 0. Refer to Chapter 1 for an explanation on 


how to relocate this section of memory. 


Character and sprite DATA. If you are using custom char- 


acters, or sprites, or both, you should make sure that the 
DATA information which creates those figures is included in 
the bank you're working with. 
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There is a kind of figure that is partly under the player’s control 
and partly under the computer's. When a baseball player in a 
videogame throws the ball, the player might control when the 
ball is released and the angle at which it is thrown, but rarely 
will the player be allowed to control the ball’s actual trajectory, 
its path across the screen. That is almost always controlled by 
the computer. The launch is player-controlled, but from then on 
the object continues to go where it was sent. 

The same thing happens with missiles in Asteroids, bombs 
and bullets in Scramble, the power ball in Mr. Do, and the air 
hose in Dig-Dug. They all seem to emerge from the player- 
figure, but once they are launched, their path and the distance 
they travel are usually controlled by the computer. 

The principle of firing missiles is simple enough. When 
the player presses the joystick button or a designated key on 
the keyboard, the program jumps to a launch subroutine. A 
missile-figure (either a character or a sprite) is put on the screen 
a short distance away from the player-figure in the direction in 
which the player is shooting or throwing. Then the missile is 
moved across the screen as far as the program allows it to go. 

The problem with missiles is that they use up time. 
Having a lot of them on the screen has the same effect as 
having a quantity of other characters or sprites. Everything 
that must be moved often slows down everything else. In 
machine language, this usually makes no difference. But in 
BASIC, the difference can be crucial. 

One solution is to stop everything else while the missile 
fires. This is the way the laser beam is handled in Gorf. When 
the laser-firing ship is shooting, it does not move. It won't 
seem to slow down the game much, since things are as fast as 
when the missile is not being fired. 

Another solution is the one we'll use in this example 
program. Program 13-1 is based on Program 5-7, which moved 
a series of playing card symbols (and other graphics characters) 
in a block back and forth across the screen. Now, by adding 
missiles, we can turn it into a game. 

The story. You have been dealt a hand of 56 cards. The 
cards are moving back and forth across the screen, gradually 
coming down at you. Your job is to get them all with your dart 
before they can move down to the bottom row of the screen. 
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You can move your player-figure back and forth across the 
bottom of the screen by using the two cursor-movement keys. 
The UP/DOWN key moves you left; the LEFT/RIGHT key 
moves you right. Pressing the space bar launches your dart. 
You can retrieve your dart at any time just by launching 
another. 

How the missile is handled. Both player movement and 
missile firing happen more often than other screen move- 
ments. They are placed in a loop-within-a-loop, so that missile 
movements and player movements take place many times for 
each time the rest of the screen display is moved. It gives the 
feeling of fast missile movement. 

It also gives us a way of adding levels to a program. The 
game will be much easier when the player can move ten times 
and the missile can move ten steps between each movement of 
the deck of cards. Later, when the missile and player move 
only twice between each movement of cards, the player has to 
be absolutely magnificent to clear the screen. The game is just 
too fast for most players. 


How the Program Works 

Line Explanation 

10-90 Initialization. This is pretty much the same as the 
initialization in Program 5-7. D$ is the HOME and 
CURSOR-DOWN characters that place the player- 
figure, P$, on the correct row. The variable P controls 
the horizontal position of P$. The string TR$, for Top 
Row, contains the current score, the number of cards 
remaining, and the number of rows that the cards 
can move down before the player loses the game. 

100 Begin the movement loop. (Since movement is 
handled entirely within FOR-NEXT loops, the 
program will reach the beginning of line 100 only 
when the game starts or the player has got rid of all 
the cards. Therefore, the GOSUB to 300, where the 
FG$ () string array is set up, takes place here. The 
same routine is used to set up each new block of 
cards.) 
Decrease the value of T by 1 each time through the 
loop. (We’re adding a true value, which is the same 
as subtracting 1.) 
Begin the X, or row, or loop. (Each time through this 
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loop, the deck of cards drops down one row. When 
the cards have crossed the screen for the ninth time, 
the game ends.) 

Begin the I loop. (This loop is identical to the loop at 
150, except that the loop at 110 moves from left to 
right and the loop at 150 moves from right to left. 
The J loop PRINTs each line of the deck by PRINTing 
each FG§$(n) string followed by a semicolon.) 

After the J loop is complete, the K loop is executed T 
times. This loop contains player and missile move- 
ment. When T is a high number early in the game, 
player-figure and dart can both move T times for 
each time the deck of cards moves. At the lowest 
allowable value of T, 2, the player-figure and dart can 
only move twice for each movement of the cards. 

Set variable D to the direction of player movement 
and check for the edge of the player’s movement 
range. 

PRINT player-figure P$ at row D$ and column P 
Then subtract 40 from M, the current address of the 
missile. To avoid extra arithmetic during the move- 
ment loop, M is always set to the absolute address of 
the missile. If the missile is off the screen, the value 
of M will be less than 1024, the start of screen 
memory. 

Then, IF the space bar is pressed, jump to the missile 
launch subroutine at 400. (Notice that the missile 
address is decremented whether the missile is on the 
screen or not, and whether it is launched or not.) 

If M>SM (the start of screen memory), the missile is 
on the screen. If it is, PEEK its new location and put 
what is there in the variable F . POKE the missile 
(MX) into screen memory and its color into color 
memory; erase the old missile position (M + 40). 
Then, if F is the screen code of a graphics character, 
go to the collision subroutine at 500. If EG is set (1), it 
means all the cards have been hit; jump to the restart 
routine at 990. (The leftward movement loop is iden- 
tical, except that the EG jump is to 995.) 

Missile Launch Subroutine 

Erase the last missile fired, if it is still onscreen. (Note 
that this allows you to fire a new missile before the 
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500-570 
500 


510 


520 


530 


560 
600 


old one has reached the top of the screen. The dart 
keeps moving even after it has hit and removed one 
card, If the cards didn’t move, it would be able to 
wipe out an entire column of cards at a time. Missile 
firing will seem sluggish at higher levels of play, but 
the player can always hold down the space bar until a 
missile appears sitting on top of the player-figure. 
Then releasing the space bar will cause the missile to 
launch.) 

Set the horizontal position of the missile (MH) to 

P +1. (Since the player position marks the blank to 
the left of the player character, the actual horizontal 
position of the player-figure is P + 1.) Set M to screen 
memory (SM) plus 840 (the row above the player- 
figure) plus MH. (That's all that it takes to launch the 
missile—-movement is now handled automatically.) 
Collision-Handling Subroutine 

If the dart is in the top row, ignore the collision. Jump 
to 560 to update the score and return. 

Calculate which character you hit by comparing it 
with each of the F$(n) characters. If the character 
collided with matches the character F${3), the colli- 
sion was in row FG§(3). 

Calculate which character in the string was collided 
with by comparing MH with the horizontal position 
of the deck of cards. Set W to the length of the string 
FG$(n) to the left of the collision character, and set 
WW to the length of the string segment to the right of 
the collision character. 

Reconstruct FG§$(n) by setting it to everything left of 
the collision character plus a blank plus everything to 
the right of the collision character. (The string is now 
as long as it was before, but now the collision char- 
acter is gone.) 

Set the points and calculate the new value of L, 
which maintains the total of cards left. 

If L now equals 0, the last card has been hit. Add the 
bonus to the score and set the EG flag to 1. 

Update the string TR$ with the new score, row, and 
cards left. 

The Ending Routine. This is where the program 
jumps if the cards have finished the bottom row 
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without the player getting all of them. 

990-995 Loop Breakout Routines. These lines close each 
FOR-NEXT loop and jump to line 100 to refresh the 
screen and start a new deck of cards. 


Program 13-1. Card Invaders 


Remember, do not type the checksum number at the end of each line. For example, do 
not type “:rem 123.” Please read the article about the “Automatic Proofreader” in 
Appendix E. 


10 DIM FG$(7),F$(6),V$(9),P(8),PP(8) trem 27 
22 BS=" ":BC=1:DI=1 :T=8 :SM=1924 : CH#=55296-SM:MX=3@: 
B=32:EG=08 srem 54 

49 POKE 53281,BC:POKE 53286,BC:PRINT “{CLR}"+:POKE 
{SPACE}657,9 trem 164 
69 V$(G)=“{HOME]}{BLU}":FOR I=1 TO 9:VS(I)=vVS(I=-1)+ 
"{DOWN}“ :NEXT rrem 199 

70 DS="{HOME}{22 DOWN}":PS="{BLK} KE] “:P=2d 

:rem 114 

80 PP=0:FOR I=08 TO 8:P(I)=50-(5*1I):PP{I)=9-I1:NEXT 
:rem 236 
92 TRS="{HOME}"+STRS(PP)+" POINTS "+STRS(L}+" CARD 
S LEFT "+STRS(8-X)+”" ROWS LEFT” :rem 115 
180 GOSUB 300:T=T+(T>9):FOR X=6 TO 8:PRINT “{CLR}" 
srem 96 
116 FOR I=8 TO 15:PRINT TRSVS$(X)TAB(I);:FOR J=0 TO 
6:PRINT FGS(J);:NEXT J srem 98 

115 FOR K=8 TO T srem 45 
120 Q=PEEK(197):D=(0=7)-(Q=2);:P=P+D+(({P>34 AND D=l 
}-{P<l AND D=-1)) trem 1 

138 PRINT DSTAB(P)PS:M=M-40:IF Q=66 THEN GOSUB 460 
rem 23 
135 IFM>SM THENP=PEEK({M) : POKEM,MX:POKECH+M, 4: POKEM 
+49,B8:IFF>63 THENGOSUB 526 :rem 200 

148 IF EG=1 THEN EG=@:GOTO 9990 zrem 91 
145 NEXT K:GOSUB 56@:NEXT I :rem 59 
159 FORI=14 TO @ STEP-1:PRINT TRSVS(X)TAB(I):sFORJ 
=8 TO 6:PRINT FGS(J);:NEXT J trem 247 

155 FOR K=@ TO T rem 49 
168 Q=PEEK(197) :D=(Q=7}-(Q=2) :P=P+D+((P>34 AND D=1 
)-(P<l AND D=-1)) zrem 5 

176 PRINT DSTAB(P)PS:M=M~40:IF Q=62 THEN GOSUB 490 
trem 27 
188 IFM>SM THENF=PEEK(M) :POKEM, MX: POKECH+M, 4: POKEM 
+40,B:IFF>63 THENGOSUB 586 :rem 209 

185 IF EG=1 THEN EG=8:GOTO 995 zrem 105 


190 NEXT K:GOSUB 568:NEXT I:NEXT X:GOTO 68@:rem 21 
368 FS(O)="O"sFS(1)="S"sFS(2)a"A" 2 FS(3)="Z" 2 FS(4)= 
"KX": FS (5)="EB]" : FS (6)="£" irem 119 
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365 FOR I=8 TO 6 STEP 2:FG${(I)="{BLUI":FG$(I+1)=" 


{RED} :NEXT trem 152 
318 FORI=@ TO 6:FG$(1I)=FG$(1)+" {DOWN} " zrem 151 
328 FORT=8 TO 7:FGS$(1I)=FGS(1)+BS+P$(1)+BS$ :NEXT:NEX 
T rrem 93 
338 FOR I=@ TO 5:FG$(1I)=FGS(I)+"{16 SPACES}":NEXT 
396 L=56:RETURN srem 1768 
406 IF M>984 THEN POKE M+49,32 trem 38 
410 MH=P+1:M=SM+MH+84@ : RETURN trem 24 
502 IF M<1@64 THEN 560 :rem 66 
510 F=F+1294+64*(F>189):FOR II=@ TO 6:IF F=ASC(FS{I 
I})THEN F=II srem 72 
526 NEXT 11;W“MH-1I+2 :ww=41-W+16* (P=6) :rem 114 
530 FGS(P)=LEPTS(FGS(F),W)+BS+RIGHTS(FGS(F), WW) 
zrem 89 
549 PP=PP+INT(P(F)*PP(X)}) :L=L-1 :rem 68 


556 IF L=@ THEN L=56:PP=PP+1000* (8-T):EG=1 srem 16 
568 TRS="{HOME}”"+STRS{(PP)+" POINTS "+STRS(L)+" CAR 


DS "+STRS$(8-x)+" ROWS{5 SPACES}" trem 79 
574 RETURN ; :rem 124 
609 PRINT "{CLR}“:FOR I=8 TO 6:PRINT "({RED}":PRINT 

PS$(1I):PRINT:NEXT zrem 226 
618 PRINT STRS(PP)" POINTS”:PRINT rem 26 
620 PRINT "PRESS A KEY TO PLAY AGAIN”:PRINT:rem 32 
630 FOR I=8 TO 3000 srem 156 
648 IF PEEK{197)<64 THEN 668 zrem 177 
650 NEXT:PRINT "THANKS FOR PLAYING!":END srem 219 
668 1=3000:NEXT 1:PP=9:T=8:GOTO 109 :rem 245 


999 K=T:NEXT:I=15:NEXT:X=8:NEXT:GOTO 168 srem 26 
995 K=T:NEXT:1=0:NEXT:X=8:NEXT:GOTO 180 z:rem 233 


You'll notice that there is no sound in this game. It would 
certainly be better with sound—feel free to add your own 
sound routines. Also, the game would be more enjoyable if the 
graphics symbols that are not hearts, diamonds, spades, or 
clubs were redefined as custom characters for kings, queens, 
and jacks. These could even be animated using character 
flipping. 

It's often a good idea to practice game programming by 
modifying or building on a game like this one. You know that 
this games runs as is; you can now improve it and alter it until 
it exactly suits you. My guess is that by the time you got 
through altering the game, very little would be left of the orig- 
inal—it would have become your game entirely. But at every 
step along the way, you’d have a completed, working game to 
let you see how each change you've made works with the rest 
of the program. 
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Other Missiles 

There are many other ways that missiles can behave. For 
instance, you could use a projectile that stays attached to the 
player-figure, like the air hose in Dig-Dug. This is done by 
simply not erasing each old missile position. Then, when the 
shot is finished, the entire line is erased all at once. While the 
hose is extended, the player-figure can’t move. 

Another possibility is a rebounding missile, like the power 
ball in Mr. Do. It keeps bouncing around until it hits a target or 
is retrieved by the player-figure. 

Missiles can go a set distance and then fade, like the 
missiles in Asteroids. Asteroids also allows four missiles at once, 
which is easy enough in machine language, but very slow in 
BASIC. 

You can also allow the player a limited number of missiles, 
the way Missile Command does. When the missiles are gone, 
they’re gone, and the player becomes a helpless target. 

You can allow computer-launched missiles to attack the 
player, forcing the player to dodge. 

Missiles can be boomerangs, rebounding to the launch 
position where the player-figure must pick them up before it 
can launch again. 

Missiles can be short extensions of the player-figure, like 
the kangaroo’s arm and boxing glove in Kangaroo and the 
hammer in Donkey Kong. 

But in all cases, missiles follow the same general pattern. 
The player’s command launches the missile, the player-figure’s 
location determines the missile’s starting position and direc- 
tion, and from then on the computer controls missile move- 
ment like any other programmed object on the screen. 
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Your First Game— 
and Mine 


We’ve been through all the principles of programming arcade 
games in BASIC on the 64. Using other reference books, you'll 
be able to pick up some more sophisticated techniques, and if 
you're serious about game design, you'll eventually turn to 
machine language. But for now, you're certainly ready to write 
a game. Your first attempt might be simple, but if you program 
carefully, leaving plenty of line numbes for adding new 
subroutines to improve the game, your first game will turn out 
pretty well. And with patience, you'll gain skill and 
confidence. 

But no matter how good you eventually become, you'll 
probably always feel proud of your first few games. I know I 
fee] that way about the games I first designed and wrote. The 
two games in this chapter, “Crusade” and “Magneto,” were the 
result of trying out techniques I'd first learned on the VIC. The 
64 is so different, though, that my initial versions were primi- 
tive, and didn’t fully use the 64’s abilities. So I changed and 
rewrote and debugged these games until they worked to my 
satisfaction. I finally settled on the versions you see here. 

There are some features for each of these games that you 
may find interesting, and which also show how I learned to 
program games in BASIC. 


Crusade 
Crusade, for instance, is an all-BASIC game. I didn’t even use a 
machine language subroutine to move the player-controlled 
character around the screen. I wanted to see what I could do 
using only BASIC. 1 think you'll agree that it worked out weil. 
Writing games in BASIC often means walking a thin line 
between speed and complexity. Games like Defender or Robotron 
cannot be written in BASIC. The games need to move much 
faster than BASIC allows. Other games, such as Pac-Man and 
Berserk, are a better model for those of us who are working 
solely in BASIC. For instance, this game began with an idea to 
include a fair amount of missile firing. The player’s character 
would fire missiles at the infidels; the infidels would fire back. 
But I discovered while programming that BASIC could not 
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execute all this and still keep playing at a reasonable speed. 
Once I realized that, I eliminated the feature and made the 
game what it is now. It became playable. 

The flashy title screen was harder to program than it was 
to think of. The letters of “Crusade” are spelled out in silhou- 
ette, and each row was assigned to an array variable and then 
PRINTed out in a different color each time to create the 
rainbow effect. 

In my attempt to make the game play faster, I discovered 
something. By moving everything that fell before the main 
loop to a far-distant subroutine, I increased the game’s speed. 
This increased the speed of the backward GOTOs, which have 
to hunt from the beginning of the program forward to find the 
line they’re going to. I also sped up the game by making all the 
constants in the main loop into variables defined at the begin- 
ning of the program. Although this reduces the readability of 
the program, I found it to be the fastest and easiest way of 
speeding up a game. 

The program is long. There are only about 100 bytes free 
while the program executes. I could have relocated some 
things to another 16K bank of memory, but I wanted to see if I 
could write the game using only one video bank. I did it, but it 
was close. The graphic characters are stored in the top 2K 
block of the bank. Most were copied from the ROM character 
set (see Chapter 4 for explanations on how to do this), but 
there are some custom characters. 

I used sprites for the infidel figures. Sprites worked well 
here, for I could animate them by blinking lights on and off in 
their chests. A single POKE of new values into the sprite DATA 


block was all it took. Since all the infidels share the same sprite 


DATA, they appear identical. This is another way to save 
memory space if you find yourself running short, as I did. 

I also included a pair of convenience controls in the game. 
Hitting the fl key during the main part of the game will reset 
the program (although it will take only a moment for the game 
to be ready again). Pressing the f7 key stops the program (and 
the time clock,too), so that you can analyze the game, or take a 
break from it. 

This was one of my first games on the 64. I hope you like 
it. Maybe I'll get to play yours someday. 
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Program 14-1. Crusade 


Remember, do not type the checksum number at the end of each line. For example, do 
not type “:rem 123.” Please read the article about the “Automatic Proofreader” in 


Appendix E. 
168 POKE56,53:POKE55,128:CLR :rem 116 
118 GOSUB1296 rem 222 
128 GOSUB134a trem 219 
138 GOsuUB99a :rem 182 
148 : zrem 297 
158 POKEV@,SX:POKEV1, SY srem 234 
16@ A=PEEK(V4)+PEEK(V5):IF(PEEK(V4)ANDZ1)+(PEEK(V5 
}ANDZ1) THEN869 :rem 97 
17@ GETAS: IFAS=""THEN23@ :rem 88 
186 IPAS="{F1]}"THENPOKES3269, @:GOTO12¢ rem 92 
194 IFAS<>"{F7}"THEN236 trem 152 
204 TS=TIS$ srem 8 
216 GETAS: IPAS=""THEN21¢ trem 73 
228 TI$=T$ :rem 18 
236 K=ZB-PEEK(JS) : IFK=ZOTHEN3 36 srem 153 
240 IFKANDZATHENSS@ trem 162 
258 ELFKANDZ1THENSY=SY-24:GOTO27@ srem 96 
268 IFKANDZ2THENSY=SY+Z4 <rem 78 
276 IF(KANDZ4)=Z6THEN300 srem 174 
2890 SX=SX-Z4: IFDR=ZOTHENSX=SX-2Z6: POKEV@, SXANDZD: DR 
=Z4 trem 95 
298 GOTO326 rrem 195 
390 IF (KANDZ8)=Z8THEN326 zrem 174 
310 SX=SX+Z4: IFDR=Z4THENSX=SX+26 : POKEV@, SXANDZD: DR 
=Z26 srem 85 
329 POKEPN, SB+WK+DR:WK=(WK+Z1)ANDZ3 :rem 211 
330 I=PEEK(V2):IFSX>ZDTHENSX=SX-ZE: I=IORZ1:POKEV2, 
I: POKEV6, SX :rem 89 
349 IFSX<Z@THENSX=SX+ZE: I=IANDZC: POKEV2, 1: POKEVG,S 
XK srem 206 
350 IFSY<MBORSY>M1OR( SX<M2AND( IANDZ] )=Z@)OR(SX>M3A 
ND( ITANDZ1) } THEN589 :rem 113 
368 IFLRTHENLR=LR+1+15* (LR>14) : POKES3294,LR:rem 81 
378 POKE14223+BL, 72:BL=BL+3:IFBL>6THENBL=6:rem 249 
3886 POKE14223+BL, 75 rrem 23 
396 FORI=Z2TOL2STEPZ2: IFAL$(RM, 1/22 )=Z@THEN446 
srem 148 
490 J=PEEK(V@+I }:J=J+SR*SGN( ( PEEK({V2)ANDZ1 )*ZE+SX- 
J):K=PEEK(V1+I) srem 191 
418 K=K+SR*SGN(SY-K) trem 191 
426 LFJ<ZEANDJ >M2THENPOKEVG+1,7 srem 242 
430 IFK<MLANDK>M@THENPOKEV1+I,K srem 212 
449 NEXT: IFPEEK({V4)ANDZ1THEN&68 trem 283 
45@ IFPEEK(V4)+PEEK(V5 )=Z@THEN1L5@ :rem 224 
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466 
478 
489 
499 
566 
518 
5208 
53 
548 
559 
560 


578 
58 


5908 
689 


619 
628 


630 
646 


656 
668 
676 
680 
698 


780 
7168 


728 
738 
748 


756 
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FORI=Z1T0Z6: IF ( ( PEEK(V4 }ORPEEK(V5) )ANDZ2T1)=z 


THENNEXT: GOTO15d3 rrem 22 
POKES53287+1,1:FORJ=1TO160: NEXT: POKE5S3287+1,1 
zrem 133 
AL% (RM, I1)=20:POKEV3, PEEK(V3 )ANDZD-Z2f1I:NEXT:GO 
TO1LSS trem 234 
3 z:rem 215 
IFCS=0THEN3I9@ trem 242 


CS=CS-1: PRINT" {HOME}"TAB(12)CSS(CS)“ “srem 233 
POKES 3285, 1: POKE54273, 18s POKE54277, 11: POKE5427 


8,%@:FORI=1TO3 srem 162 
POKE54276, 8: POKE54276, 129:FORJ=4TOOSTEP-1: POKE 
53286, CL(J):POKE53281,CL{J) srem 56 
FORK=6TO5@ : NEXT ;: NEXT : FORK=@T0O99 : NEXT : NEXT: POKE 
54276,8 trem 231 
FORI=1T06 : AL%( RM, I )=@: POKE53269, PEEK( 53263) AND 
(255-2T1) :rem 178 
FORJ=1T0100: NEXT: NEXT: POKE5 3285, 12:GOTO3990 
srem 116 
srem 214 
LF ( SY <MBANDDS (RM, 1)= @)OR{(SY>MLANDD$ (RM, 1)}=1)TH 
EN61B trem 239 
IFSX<M2ANDD$(RM, 1)=2THENG1@ zrem 81 
IFSX<M30R( PEEK (V2) ANDZ1) <>Z10RD3(RM,1)<>3THENL 
32 zrem 166 
PRINT" {HOME}{7 DOWN}"TAB(11)"THERE IS NO RETUR 
N!{UP}":FORJ=1TO50@:NEXT :rem 141 
PRINTTAB(11)"{19 SPACES}":IFD%( RM, 1 }AND2THENSX 
=SxX(DS(RM,1)):GOTO642 srem 77 
SY=SY(D%(RM,1)) srem 53 
IFD$% (RM, 1}> LTHENDR=-4* (D$( RM, 1)=3) : POKE2@48, SB 
+WK+DR srem 298 
piacledtahad rem 166 
srem 214 
PRINT" {CLR} {7 DOWN} "TAB(14)"YOU HAVE WONI":TS= 
TI$:T=TI trem 151 
POKE53294, 8: POKES3248, PEEK(53248)-11:POKE53249 
, PEEK( 53249) -6 zrem 92 
POKE53262, PEEK (53262 )-11:POKE53263, PEEK(53263) 
~6 trem 119 
POKE53271, 129: POKE53277,129 zrem 261 
FORI=1T050@0:NEXT: PRINT” {CLR} "": POKEV3, 0: POKES3 
278, 8: POKES3272, 23 :rem 206 
POKES 3280, 12:POKE53281,12 zrem 84 
IFT<MTTHENMT=T :MTS=T$:MR=RR rem 41 
PRINTTAB(15)"{WHT}{3 DOWN} E9 @3”":PRINTTABR(15 
)"{RVS} CRUSADE “ srem 48 
A$=TS :GOSUB83: PRINTTAB(5)"{3 DOWN} {BLU} YOUR T 
IME {FOR"RR" ROOM"; srem 5¢ 
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760 
776 
786 


796 
820 
818 
829 
83 


846 
85 
869 
878 


88a 
890 


960 


916 
926 


9308 


949 
956 


969 
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986 
9968 
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IFRR<>1LTHENPRINT"S"; trem 9 
PRINT") WAS{DOWN}K4]":PRINTAS trem 87 
AS=MT$ :GOSUB83@:PRINTTAB(4)"{3 DOWN} {RED} BEST 
{SPACE}TIME YET (FOR"MR" ROOM"; zrem 74 
IFMR<> 1 THENPRINT"S"; srem 7 
PRINT") IS{DOWN}E49":PRINTAS :rem 2 
FORI=1T07580: IFPEEK( JS) ANDI6THENNEXT trem 42 
GOTO12¢ srem 162 
BS=AS:A$=" "4+LEFTS$(BS,2)+" HOURS, "+MIDS(BS,3, 
2)+" MINUTES, AND " srem 174 
AS=AS+RIGHTS(BS,2)+" SECONDS.":RETURN srem 75 
: trem 215 
FORI=1T0O208:NEXT: IF{ PEEK{ V4) AND128)=128THEN6 78 

trem 22 
POKE54272, 10:POKE54277, @: POKE54278, 245: POKE542 
75,1:POKE54276,65 srem 6 
FORI=1T0O10@:NEXT: POKE54276, 64 srem 242 
FORI=1T0161 : POKE53287, 1: NEXT: FORI=3TO@STEP-1:P 
OKE53287,CL(I) : FORJ=0T0408 trem 247 
NEXT : NEXT : POKEV3 ,, 2: POKE53289, 1: POKE53281,1:RS= 
RS-1: IFRS<@THEN942 :rem 245 
POKE53282, 1: POKE53283,13POKE53287,1 srem 196 


PRINT* {HOME} "TAB(37) RS: FORI=0T048; POKE5328@, 1: 


POKE53281, I: FORJ=1T056: NEXT: NEXT srem 48 
DR=~4* ( (D3 (RM, 1 }AND1 )=1) :GOSUB1229:GOTO1LSG 

srem 76 

POKES328@, 0: POKE53281,9 rrem 242 

PRINT" {CLR} {WHT} {6 DOWN}"TAB(11)“ALAS, THE BLE 
SSING":PRINTTAB(13}“IS NO MORE ... srem 43 
PORI=1T07500:IFPEEK(JS)ANDIG6THENNEXT :rem 48 
PRINT" {CLR}": POKES3279, 8: POKE53272, 21:GOTO120 
srem 211 

: trem 219 

TS=T1I$ :RM=RM+1: POKEV3,@ :rem 119 

18008 POKE53280, 1:POKE53281,1:PRINT" {CLR} " :POKE5327 

2,23 trem 179 

1018 PRINT"{11 DOWN}"TAB(5)"“{WHT}** PREPARE TO ENT 

ER ROOM” RM"** = zrem 74 

1826 FORI=4TO@STEP-1 : POKES3281,CL{1L) s POKE53280, CL( 

I) sFORJ=1T02860:NEXT: NEXT srem 82 

1030 POKES4289,6:POKE54281, @: POKE54282, 244: POKES42 

82,1:POKE54283,65 rrem 32 

1948 FORI=1T039:PRINT" {UP} "CHRS(28):FORJ=1TO50:NE 

XT: POKE54280, 190-1*2:NEXT zrem 144 

1056 PRINT" {HOME}"TAB(11)"{11 DOWN} {BLK}PRAY FOR Y 

OUR SOUL. {WHT}":POKE5S4283,@ zrem 246 

1962 FORI=0T04; POKE53281,CL{1I):POKE53286,CL(1I):FOR 

J=1T0O296 :NEXT:NEXT :rem 188 
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1678 
1686 
1699 
1189 
1118 
1128 
1138 
1148 


1158 
1169 


1178 
1188 
1198 
1289 
1218 
1228 
123 


1249 
1258 


1268 
1279 


128% 
1298 


1396 
1316 
1328 


1339 
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PRINT" {HOME} [WHT} ROOM”RMTAB(1@)CS$(CS)TAB(24 


) "RESURRECTIONS“ RS; trem 97 
PRINTSPC(16)LEFTS(TS,2)":"MIDS(TS,3,2)":"RIGH 
T$(T$,2) zrem 179 
POKE5S3282, 1: POKE53283,1:FORI=0TO11: IFRME ( RNF( 
RM) , 1) =@THENNEXT: GOTO112¢ rrem 27 
A=WS% (I) s POKEWBS (I )-A, 69: POKEWE% (I )+A, 69 
:rem 62 
FORJ=WBS ( I} TOWE3 (I) STEPA: POKEJ, 65-(A>1) :POKEJ 
+54272,9:NEXT:NEXT rem 181 
FORI=@0T039: POKEL1@64+1, 64: POKE5S5376+4+1, 9: POKE1S 
84+1,64: POKE56256+1, 9:NEXT trem 1 
FORI=46TO840STEP49: POKE11@4+1, 64: POKE55376+I1, 
9: POKEI143+1,64:POKE55415+1,9 trem 124 
NEXT: J=D% (RM, 1) : FORIS=DBS (J) TODES (J) STEPDS% {J} 
s POKEI, 67-(DS%&(J)>1) z:rem 119 
POKEI+54272, 9:NEXT trem 76 
J=D¢% (RM, 2) : FORI=DB%(J)TODE%(J)STEPDS$ (J): POKE 
L,67-(DS%(J)>1):POKEI+54272,9 zrem 71 
NEXT : SR=INT(1.5+RM/26*3): PRINT" {HOME} "TAB(11) 
“f{11 DOWN}{19 SPACES}” rrem 83 
POKE53272, 31: POKE54291,0: POKE54292, 250: POKE54 
287,58: POKE54299,129 srem 193 
POKES429@, 128: FORI=4TOOSTEP-1 : POKE53281,CL(I) 
: POKE53286,CL(I} trem 142 
FORJ=1TO2@0 : NEXT:NEXT:TIS=TS$ zrem 57 
¢ srem 254 
J=1:LR=6: IFRM=RRTHENJ=129 : POKE53262,178: POKES 
3263,1598:LR=1 trem @ 
FORI=1T06 : POKEV9+1*2, RND(1}*215+49: POKEV1+I1*2 
»RND(1)*138+75 rrem 134 
IFAL%( RM, I} THENJ=J3+2TI :rem 113 
NEXT: K=D¢ (RM, 1): POKEV2, (PEEK(V2)}ANDZC)-(K=3): 
SX=SX(K):SY=SY(K) srem 104 
WK=@ : POKEVS, SX: POKEVI, SY: POKEPN, SB+DR: POKEV3, 
J :rem 87 
POKE53283, (RMAND3 })+1:POKE53282, SR: RETURN 
srem 212 
2 trem 5 
K=@:1=0:J=0:SX=0:SVY=@: DR=9:WK=0:BL=8:REM THIS 
Is TO ORDER THE VAR. TABLE srem 54 
Z0=0 : Z141:22=2:23=3:24=4: 26-6: 28=8: ZA=16:ZB=1 
272:ZC=254:2ZD=255:ZE=256 srem 74 
PN=2048 : V9=53248: V1=53249:V2=53264:V3=53269:V 
4=53278:V5=53279:I8=56328 :rem 164 
SB=214:M@=66 :M1=229 :M2=16:M3=69 :MT=9999999 GO 
SUB284@: POKE54296,15 srem 16 
DIM AL$(4@,6},D%(48,2),RM%(7,11),RN$(40), WBS ( 
11),WE%{11},WS%{11)}:RETURN srem 195 
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1389 
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1490 


1418 


1428 


1434 


1448 
1458 


1466 
1476 


1489 
1496 
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PRINT" {CLR} ": POKE53280, 9: POKE53281, 8: POKES327 

2,21:POKES3271,@:POKE53277,@ :rem 74 

POKES 3270,8:A$(@)="_ {RVS}M £*3{RIGHT}M 

{3 SPACES}E*I{RIGHT}ME*9{2 RIGHT}ME*] 

{RIGHT}M{2 SPACES} k*3{2 RIGHT}mM{2 SPACES} 

&*J(RIGHT}M{3 SPACES}£*]{RIGHT]M 

{3 SPACES! E*]" :rem 117 

AS(1)="mMM{2 RIGHT]K*9 {4 RIGHT} E*] 

{3 RIGHT} {RIGHT}MM{3 RIGHT}K*jmMmM{3 RIGHT} 

E*} £4 RIGHT}—*] TOFF}{4 SPACES]™ :rem 49 

AS(2)="{RVS} [2 RIGHT} {OFF} K*}{RVS} {RIGHT} 
{SPACE}{3 RIGHT} {RIGHT} {3 RIGHT} {RIGHT} 

{3 RIGHT} {OPF}E*]{RVS} {RIGHT} {3 RIGHT} 
{RIGHT} {3 RIGHT} {RIGHT} {oFrF}{4 SPACES}" 

rem 121 

AS$(3)="{RVS} {4 RIGHT} {RIGHT}{2 SPACES]M 

{RIGHT} {3 RIGHT} {RIGHT} {OFF} £*3{RVS} 

{RIGHT}{2 SPACES}K*]{RIGHT} {RIGHT} 

{2 SPACES}M{RIGHT} {3 RIGHT} {RIGHT} {RIGHT} 

{SPACE} K*JTOFF} “ srem 226 

A$(4)="{RVS} {4 RIGHT} [5 RIGHT} {3 RIGHT} 

{5 RIGHT} {RIGHT} {3 RIGHT} {RIGHT} {3 RIGHT} 
{RIGHT} {OFF}{4 SPACES}" srem 286 

AS(5)="{RVS} {2 RIGHT}ME*] [3 RIGHT} 

{RIGHT} {3 RIGHT] (RIGHT}ME*3[{2 RIGHT} 

{RIGHT} {3 RIGHT} {RIGHT} {3 RIGHT} {RIGHT} 
{orr}{4 SPACES}" zrem 142 

A$(6)="R*I{RVS}{RIGHT} M{RIGHT} {3 RIGHT} 
{RIGHT} {OFF} &*3{RIGHT} {RvS}{2 SPACES}M 

{RIGHT} {OFF} &*9{RIGHT}{RVS}{2 SPACES}M 

{RIGHT} {3 RIGHT} {RIGHT} [RIGHT}{2 SPACES}M 
{RIGHT} {RIGHT}{2 SPACES} —*]" :rem 42 

A$(7)="{OFF} £*3{3 SPACES}K*]{3 SPACES} 

E*3{2 SPACES}K*3{5 SPACES}K*3{4 SPACES} 

£*3{3 SPACES}K*3 k*9{5 SPACES} K*3" 


:rem 158 
CLS="{ RED} £19 {YEL} {GRN} {Cyn} {BLU} [PUR] {wor} 
i“ srem 186 
FORT=1TO3@: PRINT" {HOME}{6 DOWN] " rem 252 
FORLN=@TO7 : PRINTMIDS (CL$, CL+1,1)A$(LN)::CL=(C 
L+1)AND7:NEXT: CL=(CL+1)AND7 :rem 107 
IFPEEK( JS) AND1GTHENNEXT zrem 21 
PRINT" {HOME} {6 DOWN} {WHT} ":FORI=0TO7 : PRINTAS ( 
I};:NEXT srem 7 


CL(1)=11:CL(2)=12:CL(3)=15:CL{4)=1 srem 21 
FORI=1T04: POKES328@,CL{I) : POKES3281,CL(I):FOR 


J=1TO209 : NEXT : NEXT :rem 196 
PRINT" {CLR} (WHT}" : POKE53272, 23 srem 44 
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1518 
15209 
153¢ 
1549 
155@ 
1566 
15768 
158d 
1689 
1618 
1628 
1638 
1646 
1658 
166¢ 
1665 
16768 
168¢ 
1698 
1788 


1716 
1728 


1738 
17408 
1759 
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CR$="-----~-~ CRUSADE ----- ~--"sPRINTTAB(7}CR 
$ :rem 55 
PRINT“ {DOWN}{4 SPACES}YOU ARE ON A CRUSADE TO 
RECOVER THE” srem 126 
PRINT“CROSS OF GOLD, REVERED FOR CENTURIES BY 
- srem 76 
PRINT" YOUR ANCESTORS, BUT STOLEN BY INFIDELS. 
= srem 159 
PRINT"YOU MUST FIND YOUR WAY THROUGH THEIR" 
trem 96 
PRINT“CATACOMBS, AVOIDING THEIR TOUCH AT ALL” 
srem 20 
PRINT"COSTS, UNTIL YOU FIND THE CROSS.” 
trem 153 
PRINT“ {DOWN} {4 SPACES}THEIR TOUCH SPELLS DOOM 
TO YOU, BUT srem 198 
PRINT"YOU CAN USE THE POWERS GRANTED YOU TO" 
trem 186 
PRINT"MAKE THESE BEINGS VANISH.{2 SPACES} YOU 
{SPACE}CAN USE" zrem 27 
PRINT“THIS POWER ONLY THREE TIMES.{2 SPACES}Y 
OUR" trem 152 
PRINT"POWER ALSO BREATHES LIFE INTO you," 
srem 48 
PRINT" RAISING YOU FROM THE DEAD THREE TIMES. “ 
rrem 241 
PRINT" {DOWN} {4 SPACES}TO USE YOUR POWERS, SIM 
PLY" trem 247 
PRINT"DEPRESS THE BUTTON ON JOYSTICK 2." 
zsrem 222 
PRINT" (DOWN}{5 SPACES}MAY YOUR CRUSADE GO WEL 
L.-” rem 195 
FORI=4TO@STEP-1 : POKE53286, CL( 1): POKE53281,CL( 
I) :FORJ=1T0200:NEXT;:NEXT :rem 93 
POKE54277, @: POKE54278, 15*164+4: POKE54272,@ 
:rem 33 
PRINT" {DOwN}{2 SPACES}NUMBER OF ROOMS (JOYSTI 
CK) --“:RR=20 srem 56 
POKE214, 21: PRINT: B$=RIGHTS ("@"+MIDS(STRS(RR), 
2),2):PRINTTAB(32)B$ srem 42 
IFNOTPEEK (JS) AND16THEN1 768 :rem 147 
IFNOTPEEK( JS) AND4THENRR=RR+ (RR? 1) :GOTO1L75@ 
rrem 231 
IFNOTPEEK( JS) ANDS8THENRR=RR-( RR< 46) :GOTO175B 
:rem 31 
PRINT” {HOME} [DOWN} "TAB(7}MID$(CLS$,CL+1,1)CR$: 
CL=(CL+1)AND7:GOTO1 786 rrem 214 
POKE54276, 8: POKE54273, 50+RR* 2: POKE54276,17:P0 
KE54276,16:GOTO1 748 :rem 218 
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1768 POKE54278, 249: POKE54276, 8: POKE54273,19: POKE54 
276,129: POKES4276,128 zrem 19 
1772 PRINT" {UP} (WHT}“TAB(32)BS* {HOME} {DOWN} "TAB(7) 
CR$ :rem 169 
1789 FORJ=1TO6:FORI=LTORR: AL%(1I,J)=1:NEXT: POKEPN+J 
1222: POKE53287+J, 7:NEXT trem 94 
1790 POKEPN+7, 223: POKES3287+7, 7: POKES53287,1 
trem 281 
1899 RESTORE: FORI=9T07 : FORJ=9TO1L1 : READRM$ (I,J) sNEX 
T:NEXT srem 151 
1818 D*(8,2)=3: DR=0: FORI=LTORR: RN$(I)=INT( RND(1)*8 
} trem 184 
1820 D&é(I,1)=(DE(I-1,2)AND254)OR(NOTD$(I-1,2)AND1) 
srem 149 
1838 D&(I,2)=INT(RND(1)*4):IFD%(1,1)=D%{1I,2)THEN1S 
38 :rem 44 
1846 NEXT:D%(RR, 2)=D3(RR, 1): FORI=9TO3: READDBS(I),D 
E$(1I),DS$(1):NEXT srem 177 
1858 FORI=@TO11:READWBS{1),WES{I),WS%(I):NEXT 
:rem 179 
1860 FORI=@6T03:READSX(L),SY{1I}:NEXT: POKE53276, 24:P 
OKE53283, 1:POKE53284, 1:RM=1 srem 162 
18708 RS=3:CS=3: POKE5328@, 11: POKE53281, 11: POKE53276 
, 254: POKE53275, 255 srem 134 
1889 FORI=1TORR:FORJ=1T06:AL$(I,J}=1:NEXT:FORI=8TO 
3:READCSS(1I):NEXT 2rem 27 
1896 IFPEEK{ 13697) <>96O0RPEEK( 14337) <>1LO2ORPEEK({148 
48)<>179THEN1919 :rem 28 
199@ FORI=1T03: POKES 3280, CL(1)}:POKE53281,CL{I):FOR 
J=1T0O2890 : NEXT: NEXT: GOTOL999 zrem 5 
1918 POKE56334, PEEK(56334)AND254:POKE53274,6 
:rem 222 
1929 POKE53280,12: POKES3281,12:SP=13696 srem 176 
1939 READA: IFA<9THENFORI=1TO-A: POKESP, 0:SP=SP+1:NE 


XT: GOTO1939 zrem 184 
1942 IFA<ZETHENPOKESP,A:SP=SP+1:GOTO1939 srem 64 
1958 POKE53289,15:POKE53281,15 srem 144 
1968 POKEL], 51:C01=55296:C2=14336 :rem 165 
1979 FPORI=9TO511:POKEC2+1, PEEK(C1+1):NEXT: POKE1,55 
+ POKES6334, PEEK(56334)OR1 trem 208 
1988 C2=14848 : FORI=9T0O47 : READA: POKEC2+I1,A:NEXT 
:rem 65 
1998 POKE53285,12:POKE53286,1 srem 192 
2000 POKE657,128:POKE53272, 31: POKE53280, 1:POKE5328 
1,l :rem 231 
2018 POKE54273, 28: POKES4277,0: POKE54278, 247: POKE54 
289,18: POKE54284,0@ srem 84 
2620 POKE54285, 247:TIS="998006" :RM=9 : RETURN 
rrem 192 
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: srem 255 
FORT=6T023 : POKE54272+1,8:NEXT trem 33 
POKE54276, 8: POKE54283, 8: POKE54299, 8: RETURN 
trem 32 
DATA 1,8,6,1,9,9,6,0,1,6,1,8 :rem 1¢ 
DATA 8,6,9,1,9,8,1,1,0,0,9,2 srem 19 
DATA 1,1,8,9,9,8,6,9,9,6,1,1 :rem 12 
DATA 1,8,9,9,9,%9,1,1,1,8,9,@ :rem 13 
DATA @,8,0,1,9,8,6,9,1,8,9,@8 :rem 3 
DATA 9,8,9,0,9,1,1,9,1,6,9,8 rem 5 
DATA 9,0,0,0,9, 1,6,9,%, 1,1,¢ rem 6 
DATA 1,6,0,9,9,1,1,9,9,8,9,1 srem 8 
DATA 1120,1127,1, 28008, 2607,1,1424,1664,48,146 
3,1783,46,1152,1352,48 rrem 186 
DATA 1175,1375,40,1385,1391,1,1393,1414,1,141 
6,1422,1,1432,1672,48 trem 171 
DATA 1455,1695,49,1765,1711,1,1713,1734,1,173 
6,1742,1,1752,1952,42 trem 187 
DATA 1775,1975,49 srem 74 
DATA 173,72,173, 226, 31,147,59,147 srem 92 
DATA " NO POWERS"," ONE POWER”," TWO POWERS", 
"THREE POWERS{2 SPACES}" zrem 152 
DATA 9,96,8,8, 208,9,8,249,9,6,224,0,80,192,6,1 
7192,9,3,224,9,3,68,0,3,9,6 srem 93 
DATA 3,9,6,3,128,6,6,192,9,12,96,8,24,48,9,48 
748,06, 112,56,-17 ;rem 136 
DATA 6,96,0,8,298,98,0,249,09,0,224,9,8,192,8,1 
2192,0,3,224,9,3,680,9,3,9,9 srem 95 
DATA 3,0,9,67,128,9,12,192,6,12,192,8,24,96,8 
,24,96,9,28,112,-17 zrem 17 
DATA 9,96,9,9,208,0,9,246,9,9,224,9,9,192,8,1 
,192,0,3,224,9,3,48,9,3,24 srem 65 
DATA @,3,9,80,3,128,@,3,192,9,3,128,0,3,8,8,7, 
@,8,15,128,-17 trem 253 
DATA @,96,0,9,298,6,9,246,9,0,224,0,9,192,8,1 
,192,9,3,224,9,3,60,9,3,6,9 :rem 99 
DATA 3,0,9,7,128,9,12,192,90,12,192,8,24, 96,9, 
24,96,8,28,112,-17 rem 229 
DATA @,6,9,@,11,0,0,15,9,9,7,0,9,3,8,80,3,128, 
@,7,192,9,60,192,9,9,192,9,6 :rem 141 
DATA 192,0,1,192,9,3,96,%,6,48,0,12,24,9,12,2 
2,8@,28,14,-16 :rem 234 
DATA 9,6,6,9,11,9,8,15,0,9,7,60,9,3,9,8,3,128, 
9,7,192,9,68,192,0,9,192,9,9 srem 134 
DATA 192,80,1,224,6,3,48,9,3,48,0,6,24,9,6,24, 
9,14,56,-16 srem 131 
DATA 9,6,6,6,11,0,9,15,0,80,7,80,6,3,8,9,3,128, 
O,7,192,0,12,192,8,24,192,8 rrem 95 
DATA 6,192,6,1,192,0,3,192,9,1,192,9,8,192,8, 
6,224,6,1,249,-16 srem 152 
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2348 DATA 9,6,6,6,11,0,%,15,9,8,7,9,9,3,08,0,3,128, 
0,7,192,9,60,192,6,9,192,8 srem 46 
2358 DATA 0,192,9,1,224,0,3,48,9,3,48,8,6,24,8,6,2 
4,3,14,56,-16 :rem 227 
2369 DATA 3,0,0,15,192,9,63,248,6,15,192,0,1096,164 
+9,72,132,0,72,132,0,72,132 srem 146 
2378 DATA %,69,68,6,10,128,9,8,128,%,8,128,8,8,128 
,@,8,128,8,28,88,98, 20,89,-17 trem 212 
2388 DATA 6,48,0,9,49,0,9,235,9,2,170,128,2,158,12 
9,2,170,128,9,235,9,8,48 :rem 236 
2398 DATA 6,9,49,9,9,40,9,8,48,9,9,49,9,9,49,0,8,4 
@,9,9,48,-19, 256 ;rem 64 
2482 DATA 179,178,179,170,176,176,170,1789,60,9,8,17 
9,176,9,6,9 srem 132 
2410 DATA 49,40,49,49,49,49,49,40,6,0,6,85,85,8,2, 
4] :rem 143 
2420 DATA 4,4,4,4,4,4,474, 255,255, 255, 255, 255, 255, 
255,255 :rem 246 


Magneto 


This game uses somewhat different programming techniques. 
It’s not a completely BASIC game, for the multicolored player- 
controlled character is moved with a machine language 
routine. The keyboard routine you saw in Chapter 8 is the one I 
POKEd into the cassette buffer to move the character. I found 
uses for some things in this game that I didn’t in Crusade, such 
as stationary sprites, random sounds, ring modulation, and 
multicolored characters. It made it more interesting as I 
programmed when I tried to find ways to fit these things in. 

This game gets more difficult as you play, just as Crusade 
does. I sped up the play of the game by using some of the 
same methods found in Crusade. Accessing subroutines at the 
very beginning of the program and using variables instead of 
constants are two ways to speed up BASIC’s execution. Modu- 
larizing the program also helped, for I could work on one 
aspect of the game, then add it to the main program before 
moving on to the next piece. That way, it seemed like I was 
making progress as I wrote the game, and gave me some 
incentive to continue. It’s a tip you might want to try yourself. 

The program itself is pretty easy to understand and 
follow. It uses a lot of the techniques and methods you’ve seen 
in the book, and puts them together to create a complete game. 
It's something I enjoy playing, and I hope you will, too. 


325 


EES Your First Game—and Mine 


Program 14-2, Magneto 


Remember, do not type the checksum number at the end of each line. For example, do 
hot type “:rem 123.” Please read the article about the “Automatic Proofreader” in 


Appendix E. 
4 GOSUB1990; PRINT" {BLU} {HOME} {23 DOWN} "SPC(22);:FO 
RX=0TO13:PRINT"N(UP}"; srem 192 
18 PRINT "{CLR}" + GOSUB 19000: GOSUB 5808: GOSUB 
{SPACE}]609@: GOSUB 4790 rrem 244 
15 D = 5: GD = 25: DL = 1: SL = 5 :rem 8 
26 PRINT "{CLR}" : GOSUB 5580: GOSUB 4908 :rem 200 
49 GOSUB 1018: GOSUB 208: GOTO 2198 rrem 248 
45 S = 54272: FOR X = 0 TO 24: POKE S + X, 0: NEXT 
: RETURN srem 88 
5@ GOSUB 1000: PRINT” {YELL} {HOME}{19 DOWN}{4 RIGHT} 
£32 YJ": RETURN zrem 122 
55 PRINT" {YEL} {HOME} {1@ DOWN}{4 RIGHT}{32 SPACES}”" 
: RETURN rem 36 
69 GOSUB 190: PRINT" {BLU} {HOME} {18 DOWN}{4 RIGHT}D 
DDDDDDDDDDPDDPPPDDDDDDDDDDDDDDDD" irem 18 
65 RETURN trem 75 
74 PRINT" {BLU} {HOME}{18 DOWN}{4 RIGHT}{32 SPACES}” 
: RETURN trem 42 
75 GOSUB 1@@0:PRINT" {RED} {HOME}(7 DOWN} "“SPC(Q};:FO 
RX=OTOW: PRINT" £9 { DOWN} {LEPT}"; :NEXT: RETURN 
:rem 92 
80 PRINT" {RED} {HOME} {7 DOWN}"SPC(Q); :FORX=OTOW: PRI 
NT" {DOWN} {LEFT} “; :NEXT:RETURN srem 48 
85 GOSUB 1060@:PRINT”{YEL]} {HOME} {7 DOWN} "SPC(Z2};:F 
ORX=OTOW: PRINT" KNJ { DOWN} [LEFT} "+; :NEXT: RETURN 
srem 15 
98 PRINT" {YEL} {HOME}{7 DOWN}"SPC(2Z2) + :PORX=OTOW: PR 
INT” {DOWN} {LEFT} "+: :NEXT: RETURN trem 238 
95 GOSUB 1960:PRINT" {PUR} (HOME}{1@ DOWN}{4 RIGHT}” 


: sFORX=OTOU: PRINT" M{ DOWN} ";:NEXT:RETURN:rem 118 
PRINT" {PUR} {HOME}T1@ DOWN}{4 RIGHT}"; :FORX=OTO 
U:PRINT" {DOWN]"; :NEXT: RETURN zrem 81 
GOSUB 1090:PRINT"£39{HOME}{17 DOwN}{4 RIGHT} 

“+ sFORX=OTOU : PRINT “N{UP}";sNEXT:RETURN:rem 148 
PRINT’ £33 {HOME} {17 DOWN}{4 RIGHT}";:FORX=0TO 

U:PRINT" {UP}"; :NEXT: RETURN srem 72 
GOSUB 1980:PRINT" {RED} {HOME}{4 DOWN] "SPC(Z1);: 
FORX=OTOU : PRINT" M{ DOWN}; :NEXT: RETURN :rem 3 


PRINT" {RED} {HOME} {4 DOWN} "SPC(Z1); :FORX=OTOU:P 
RINT" {DOWN} ";:NEXT: RETURN trem 192 
GOSUB1@02: PRINT" {BLU} (HOME}{23 DOWN}"SPC(22):: 
FORX=OTO13: PRINT"N{UP}"; srem 32 
NEXT: RETURN zrem 242 
PRINT" {BLU} {HOME}{23 DOWN] "SPC(22);+:FORX=OTO13 
:PRINT" {UP}";:NEXT: RETURN zrem 167 
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GOSUB 1968: PRINT "{GRN] {HOME} {6 DOWN} "SPC(W); 
:FORX=OTOY: PRINT "M{DOWN}";: NEXT: RETURN 
rrem 254 
PRINT "{GRN}[HOME}{6 DOWN] "SPC(W);:PORX=OTOY: 
{SPACE}PRINT “ {DOWN}";: NEXT: RETURN :rem 178 
GOSUB 18900:PRINT"{GRN}{HOME}{22 DOWN] "SPC(W}:: 


FORX=OTOY: PRINT" N{UP}"; srem 253 
NEXT: RETURN =| zrem 248 
PRINT" {HOME}{22 DOWN}"SPC({W);:FORX=OTOY: PRINT” 

{UP}"> :NEXT: RETURN srem a2 


GOSUB 1686: PRINT” {CYN} {HOME} [5 DOWN} "SPC(P); 
FORX=OTOY: PRINT"M{DOWN!";:NEXT:RETURN :rem 101 
PRINT" {CYN} {HOME} {5 DOWN}"SPC(P): :FORX=OTOY:PR 


INT" {DOWN}; NEXT: RETURN srem 34 
GOSUB 1090:PRINT" {YEL} {HOME} {23 DOWN}"SPC{P);: 
FORX=OTOY: PRINT"N{UP}"; trem 133 
NEXT: RETURN srem 247 
PRINT" {HOME}{23 DOWN) "SPC(P)::FORX=OTOY: PRINT" 

{UP}";: NEXT: RETURN srem 5 
GOSUB 198@:PRINT" {HOME}{14 DOWN] "SPC(Z); peat) 
**" > RETURN em 8 
PRINT" {HOME} [YEL}{RVS]} **** MAGNETO **** TOEF) 
{8 SPACES} (WHT} {RVS} LEVEL {OFF} "DL rrem 196 


PRINT" {DOWN} {RVS} {WHT} SCORE[{OFF]}"sc;" 
{2 SPACES} {RVS]SHIPS LEFT{OFF}"SL;"{2 SPACES} 


{RVS}HIGH{OFF}"HS: RETURN rem 169 
FOR X2 = 0 TO GD trem 198 
SYS(B):Z2T = PEEK(M) :rem 18 
R=INT ( RND(K)*D)+K rrem 195 
ON R GOSUB 56,68,75,85,195 srem 247 
L= PEEK(C)+(PEEK(E)*P4) srem 179 
IF PEEK {L} <> G THEN GOSUB 3862 zrem 27 
IF PEEK (H} = J THEN GOSUB 49698 srem 232 
NEXT: GOSUB 55: GOSUB 78: GOSUB 89: GOSUB 92 
srem 182 
FOR X¥2 = O TO GD srem 191 
SYS(B}:Z2T = PEEK(M) zrem 19 
R=INT(RND({K)*D)+K srem 196 
ON R GOSUB 95,110,120,130,195 rem 123 
L= PEEK(C)+(PEEK(E)*F4) srem 180 
IF PEEK ({L) <> G THEN GOSUB 390¢ zrem 28 
IF PEEK (H) =-J THEN GOSUB 4906 zrem 233 
NEXT: GOSUB 11%: GOSUB 115: GOSUB 125: GOSUB 1 
46 trem 27 
FOR X2 = 0 TO GD srem 192 
SYS(B):ZT = PEEK{M) srem 2@ 
R=INT(RND({K)*D)+K srem 197 
ON R GOSUB 145,155,178,188,195 srem 187 
L= PEEK(C)+(PEEK(E)*F4) srem 181 
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IF PEEK (L) <> G THEN GOSUB 38906 rrem 29 
IF PEEK (H) = J THEN GOSUB 49820 trem 234 
NEXT: GOSUB 15@: GOSUB 165: GOSUB 175: GOSUB 1 
96 :rem 47 
GOTO 2104 :rem 119 
POKE S2 , R + F: RETURN srem 126 
REM SET UP FOR GAME SOUND :rem 193 
GOSUB 45 srem 176 
POKE S + 5, 15: POKE S + 6, 255 :rem 28 
POKE S, K: POKE S + 24, 6 :rem 112 
POKES + 4, 21: POKE S + 15, 208 :rem 63 
RETURN srem 169 
IF PEEK(L) <> C2 THEN 3016 :rem 246 
IF CH <> O THEN RETURN zrem 185 
GOTO 3198 :rem 198 
REM SOUND FOR CHARACTER COLLISION TO BEAMS 
srem 92 
GOSUB 45: RM = 31 trem 41 
POKE S + K, 15 : POKES + 5 , 16 : POKE S + 6 
2 246 :rem 223 
FOR X = 0 TO 68 srem 156 
POKE S + 15 , RM : POKE S + 24 , 31 s:rem 132 
POKE 53281, x/4 :rem 231 
POKE S +4, 21 srem 58 
RM = RM -.5 trem 214 
NEXT: GOSUB 4260 : POKE 53281 , @ :rem 81 
SL = SL —- K: IF SL = 0 THEN 3569 srem 172 
GOSUB 1816: CH = @: GOTO 206 :rem 74 
REM JEWEL CAPTURE SOUNDS srem 15 
CH = CH + 1: POKE 833, 1:SC = SC + 10@:rem 58 
GOSUB 45: RM = 6 : C3 = .75 srem 133 
POKE S + K ,3: POKE § + 5 ,16: POKES +6, E 
:rem 89 
POKE S + 15 , RM: POKE S + 23 , K: POKE S + 2 
4 , 31: POKE S + 21, 96 srem 79 
POKE S + 4, 21 trem 54 
RM = RM + C3: IF RM > 168 THEN 3148 z:rem 17 
POKE S + 15 , RM: GOTO 313¢ :rem 228 
GOSUB 191@: GOTO 2a¢ srem 15 
REM END GAME SEQUENCE trem 246 
PRINT "{CLR}": POKE V + 21, @: POKE S + 24, 6B 
srem 127 
PRINT’ {2 DOWN} {YEL}SORRY CAPTAIN, YOU HAVE RU 
N OUT OF SHIPS” srem 86 
PRINT" {4 DOWN} {CYN}HOWEVER, YOU WERE DOING VE 
RY WELL. You" srem 17 
PRINT“ {DOWN} MANAGED TO GET"SC;"POINTS AND MA 
KE IT” srem 158 
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PRINTSPC(13} "{DOWN} TO LEVEL"DL :PRINT" 
{2 DOWN} {wHT}{4 SPACES}HIT THE {RVS}]SPACE BAR 


{OFF} TO"; zrem 176 
PRINT” TRY AGAIN":PRINT"{DOWN}[7 SPACES}OR AN 
Y OTHER KEY TO END" zrem 136 
IF SC > HS THEN HS = SC zrem 116 
GET AS: IF A$ THEN 3576 :rem 64 
GET A$: IF AS = “" THEN 3580 zrem 195 
IF AS = " " THEN SC = O: CH = O: SP = @: DL = 
lz: GD = 25: SL = 5: GOTO 268 zrem 243 
PRINT"{CLR} {3 DOWN}{12 SPACES} {wHT} {Rvs} 
{2 SPACES}GOOD BYE{2 SPACES} {OFF}" trem 18 
FOR T = 9 TO 3000: NEXT: END trem 98 
REM VARIABLE SET UP - FOR CKX AND OTHERS 
rem 33 
POKE 828,46: POKE 829 ,68: POKE 838 ,45: POKE 
831 ,53: POKE 832 , 86 :rem 156 
POKE 833, 15: POKE 251, 49: POKE 252 , 6: POK 
E 253, 49: POKE 254 , 218 :rem 138 


P=2049: RG = 192: RO= 193 : S= 54272 :rem 73 
B=834: C=25)l:s E=252: F4=256: G = 86: H = 197: 


J=180: K= 1: M = 53279 :rem 138 
P= 8: Q= 12: U= 13: W= 14: Y=17: 2 = 19; 
Zl = 22: C2 = 42 zrem 71 
Z2 = 27: S2 = 54273: F = 226 rrem 78 
RETURN ; srem 165 
REM SET UP ALL COLORS FOR MULTI-COLOR MODE 
trem 46 
POKE 53281,@: REM SCREEN BLACK :rem 149 
POKE 53282,14: REM BACKGROUND #1 TO LIGHT BLU 
E :rem 38 
POKE 53283,4: REM BACKGROUND #2 TO PURPLE 
srem 48 
POKE 53270, PEEK (53278) OR 16: REM TURN ON M 
ULTICOLOR MODE srem 221 
RETURN srem 176 
REM DISSOLVE SPRITE ROUTINE srem 23 
IF PEEK (V+31) = 6 THEN RETURN srem 53 
IF CH = O THEN RETURN srem 134 
RM = 4: GOSUB 45: SP = SP + PEEK (V+4+31): SC = 
sc + (108 * SL) zrem 193 
POKE S + K ,RM: POKE § + 5 ,16: POKES +6, 
{SPACE]E trem 286 
POKE V + 29, SP: POKE V + 23, SP :rem 219 
POKE § + 15 , 5: POKE S + 24, 31 srem 32 
POKE S +4, @ srem 59 
FOR T = 4 TO 8@ STEP .25: POKE S + K , T: NEX 
T srem 131 
FOR X = 0 TO 7: POKE P + X, RO : NEXT: POKE V 
+ 28, SP :rem 31 
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FOR T = 81{2 SPACES}TO 15@ STEP .25: POKE S + 
K , T : NEXT :rem 231 

GOSUB 1914 :rem 24 
FOR X = O TO 7: POKE P + X, RG : NEXT:rem 241 
POKE V + 21, (255-SP}: POKE V + 29, O: POKE V 
+ 23, 0 srem 199 

IF PEEK (V+21) = 8 THEN 7090 zrem 38 
CH = O: POKE 833, 15: GOTO 2928 trem 136 
REM BASIC LOADER FOR FAST({CKX) KEYBOARD CONTR 
OLLED CHARACTER ROUTINE :rem 8 
FOR X = 834 TO 1914: READ A: POKE X , A: NEXT 
srem 136 

DATA 32,176,3,165,197,205,69,3,288,14,32,183, 
3,32,228,3,176,63, 32 trem 111 
DATA 168,3,76,147,3,205,61,3,298,14,32,168,3, 
32,237,3,144,44,32 :rem 249 
DATA 183,3,76,147,3, 205,62,3, 298,14, 32,199,3, 
32,228,3,176,25, 32,217 srem 214 
DATA 3,76,147,3,205,63,3,2088,14,32,217,3,32,2 
37,3,144,6,32,199,3 srem 57 
DATA 76,147,3,168,0,173,64,3,145,251,173,65,3 
7145,253,96, 24,165 srem 28 


DATA 251,195,48,133,251,133,253,144,4 :rem 5 
DATA 238,252, 230,254,96,168,8,169, 32,145,251, 
96,56,165, 251,233, 4G trem 124 
DATA 133, 251,133,253,176,4,198, 252,198, 254, 96 
, 265,251, 288,9,198,251 :rem 2 
DATA 198,253,198, 252,198, 254, 96,198, 251,198,2 
53,96,238,251, 239,253,268 zrem 158 
DATA 4,238,252, 238, 254, 96,165,251, 233,168,165 
7252,233,4, 96,165,251 zrem 169 
DATA 201,232,165, 252, 233,7,96,234 srem 76 
RETURN :rem 169 
REM SCREEN AND VARIABLE SET UP ROUTINE:rem 62 


V = 53248:POKE 53280, @: POKE 53281 , 8: PRIN 
T" {HOME} {waT}” rem 26 
POKEV, 28: POKEV+1, 124: POKEV+2, 118: POKEV+3, 8@:p 
OKEV+16, 136: POKEV+4, 235 zrem 72 
POKEV+5 , 80: POKEV+6, 60: POKEV+7 , 128: POKEV+8, 29: 
POKEV+9, 186: POKEV+16, 118 :rem 138 
POKEV+11, 226: POKEV+12; 235: POKEV+13, 226: POKEV+ 
14,68: POKEV+15,186 srem 199 
POKE V + 21, 255: POKE V + 23,@:POKE V + 28, 
(SPACE}@: POKE V + 29, @ srem 182 
FOR X = @ TO 7: POKE 204 + X , 192: POKE Vv + 
39 + X , 3:NEXT z:rem 128 
PRINT" {2 DOWN} EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE 
EEEEEEEEE" ae rem 148 
RETURN zrem 172 
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6606 REM READ SPRITE DATA trem 183 
6065 FOR X = 8 TO 63: READ A:POKE X + 12288, A: NE 
XT srem 241 
601% FOR X = @ TO 63: READ A:POKE X + 12352, A: NE 
XT :rem 229 
6626 REM POD 1 DATA trem 218 
6038 DATA 8,16,0,0,56,9,0,124,8,1,255,8,2,9,128,2, 
9,128,15, 255, 224, 28 srem 251 
6048 DATA 130,80,25,1,48,18,56,144,242 trem 73 
6050 DATA 108,158, 242,108,158,18,56,144,25,1,48, 29 
,136,88,15,255,224,2,8 trem 266 

6060 DATA 128,1,255,6,9,198,8,1,131,9,3,1,128,@ 
srem 225 
6076 REM POD 2 DATA :rem 224 


6984 DATA @,16,0,9,56,9,0,124,8,1,255,8,2,8,128,2, 


9,128,15,255,224,17 srem 6 
6098 DATA 1,16,18,56,144,29,68, 80, 244,146,94, 244,1 
46,94, 28,68,88,18,56 srem 142 
6190 DATA 144,17,1,16,15,255,224,2,6,128,1,255,6,8 
,198,9,1,131,9,3,1,128,86 srem 253 
6118 RETURN rrem 168 
7000 REM GOT THEM ALL ROUTINE :rem 194 
7695 sc = sc + 569 srem 245 
7@10 PRINT" {CLR}": POKE V + 21, @: POKE S + 24, @ 
trem 126 
7929 PRINT" {2 DOWN} {CYN} CONGRATULATIONS! ! 

{2 SPACES}YOU HAVE ELIMINATED srem 245 
7932 PRINT” {DOWN} {5 SPACES}ALL OF THE DEADLY {WHT} 
{RVS} MAGNETOS [OFF}{CYN}. zrem 96 
7G40 PRINT" {PUR}{2 DOWN} {12 SPACES} ***** eek ea ee Ree 
{Cyn}" trem 111 
7950 PRINT" {2 DOWN}{4 SPACES}YOUR SCORE IS"SC;". W 
ELL DONE !!" srem 5 
7060 PRINT" {DoOwN}{2 SPACES}NOW YOU MUST ATTEMPT TH 
E NEXT LEVEL" trem 160 
7676 PRINT"{2 DOWN}{YEL}{7 SPACES}HIT ANY KEY TO C 
ONTINUE{3 SPACES}" zrem 29 
7685 IF SC > HS THEN HS = SC rrem L11 
7098 GET AS: IF A$ THEN 7999 :rem 66 
7100 GET AS: IF AS = "" THEN 7199 zrem 179 
7118 CH = @: SP = g@ srem 1l 
7148 GD = GD - 5: IF GD < 5 THEN GD = 5 zsrem 114 
7145 DL = DL + 1 zrem 138 
7158 GOTO 28 zsrem 194 
9999 REM INTRO AND INSTRUCTION ROUTINES :rem 2 
10008 POKE 53289, 3:POKE 53281 , 1 zrem 74 

19695 PRINT"{CLR}{2 DOWNIER7a{RVS}{49 SPACES}"; 
srem 99 


10¢16 PRINT" {RVS}{6 SPACES} ENJMNEHIENIM 
{2 SPACES}OP £N9M{2 SPACES} £HIOEYS 
E2 yJORY9 OF2 YIP{6 SPACES}"; srem 289 
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19915 


19928 


12825 
18838 
18835 
19846 
16845 


19856 
16855 
16868 
18865 
16879 
16875 


16086 
19885 


18899 
18895 
19130 
19195 
18114 
19115 


19128 
16125 


191308 
19135 
19148 
18145 


18158 
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PRINT’ {2 SPACES}*** £N3{2 SPACES] HJ 
ENJ M £H2 EPJENZ M KHXO{4 SPACES} 
KHI{2 SPACES}KH3(2 SPACES} £N] 
{2 SPACES}*** "; srem 67 
PRINT" {6 SPACES}KN9{2 SPACES} KHIENI 
EvaP LEPIGENI(2 SPACES}MKH3LE2 PJ 
{2 SPACESTEHI[2 SPACES}LE2 PJ@{6 SPACES} 
“s srem 176 
PRINT" {4@ SPACES}">; trem 4 
PRINT"{48 SPACES}"; trem 6B 
PRINT" {48 SPACES}"; srem 5 
PRINT" {46 SPACES} {OFF}" zrem 88 
PRINT" {6 DOWN} {BLU} {5 SPACES}INSTRUCTIONS ?? 
{2 SPACES}( {RVS}Y{OFF} OR [RVS}]N{OFF] } 
srem 66 
S = 54272: D= 4 trem 121 
POKE S + 1,19: POKE S + 5 ,16: POKE S+6, 
252 rem 247 
POKE S + 15, D: POKE S + 23,1 trem 35 
POKE S + 4, 19: POKE S + 24, 31 trem 88 
FOR X=6 TO 38 STEP.5:POKE S+1,X*2:POKE 8+22, 
FF: FF=FF+3:NEXT trem 17% 
FOR X=30 TO @ STEP-.5:POKE S+l,X*2:POKE S+22 
, PF :FF=FF-3:NEXT rem 222 
D=D+r+2 trem 27 
IF D > 20 THEN POKE S + 24 , @: GOTO 10105 
srem 121 
GET A$: IF A$ = "N" THEN POKE S + 24, @: RET 
URN :rem 244 
IF AS = "Y¥" THEN POKE S + 24, @ + GOTO 10125 
trem 215 
GOTO 19962 rrem 34 
GET A$: IF AS = "" THEN 10105 srem 17 
IF AS = "N" THEN RETURN s:rem 197 
IF AS = "yY" THEN POKE S + 24, @ : GOTO 19125 
:rem 208 
GOTO 19195 trem 36 
PRINT" {CLR}{12 SPACES}*** MAGNETO ***" 
:rem 186 
PRINT" {2 DOWN}{2 SPACES}THE COSMIC BALANCE 0 
F THE GALAXY HAS” srem 133 
PRINT" {DOWN}BEEN UPSET BY A GROUP OF 8 DEADL 
Y ATOMIC" trem 45 
PRINT" GENERATORS WHOSE A.I. CIRCUITS HAVE BE 
EN" srem 209 
PRINT” TAMPERED WITH. YOU MUST DESTROY ALL 8 
{SPACE} TO" zrem 172 
PRINT"SAVE OUR CIVILIZATION. THEY HAVE DEADL 
YY" :rem 193 


CPG ee eI eG Ee EEG BG Oe 6G ere Ge 


oa 
4 


5D Oe ee DO 


19155 
18168 
18165 
19176 
19175 
19186 
16185 
18198 
18195 
18288 
10205 
19216 
18215 
18226 
16225 


1623¢ 
19235 


18240 
18245 


18258 
16253 
16255 
18268 
16265 
16278 


18275 
16288 
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PRINT" {DOWN} BEAMS TO PROTECT THEIR POWER CRY 
STALS. “ :rem 182 
PRINT" {DOWN}TO DESTROY THEM YOU MUST REACH T 
HE POWER” trem 236 
PRINT"CRYSTALS AND GET ENERGIZED BY THE ATOM 
Ic" trem 204 
PRINT"FORCE. THE BEAMS WILL DESTROY YOU IF Y 
ou” trem 155 
PRINT“HIT THEM WHEN THE FORCE IS IN USE. 
{pown}" srem 195 
PRINT" {6 SPACES} {RVS}HIT ANY KEY TO CONTINUE 
{OFF} “ trem 45 
GET AS: IF AS THEN 18185 zrem 168 
GET AS: IF AS = "" THEN 19199 trem 25 
PRINT" {CLR}{12 SPACES]*** MAGNETO ***" 

:rem 167 
PRINT“ {2 DOWN} HOWEVER, THE MAGNETOS HAVE ON 
LY ENOUGH" :rem 157 
PRINT" {DOWN} {2 SPACES}POWER TO ENERGIZE ONE 
{SPACE}OF THEIR BEAMS" srem 190 
PRINT" {DOWN}AT A TIME SO THE FORCE IS FOUND 
{SPACE} RANDOMLY" rrem 75 
PRINT" IN THE BEAMS AND POWER CRYSTALS. WITH 

trem 233 
SaLunin foo TGAae YOU CAN DESTROY THEM ALL. G 
OOD LUCK" srem 126 
PRINT"{5 DOWN}{7 SPACES}{RVS}HIT ANY KEY TO 
{SPACE} CONTINUE {OFF}”" trem 138 
GET AS: IF AS = "“ THEN 10232 srem 15 
PRINT" {CLR} {12 SPACES}*** MAGNETO ***" 

rem 102 
PRINT" {2 DOWN}{1@ SPACES]}{RVS} KEYBOARD CONT 
ROLS {oFF}" srem 83 
PRINT"{3 DOWN}{5 SPACES}{RVS}@{OFF} MOVES SH 
IP UP":PRINT" {DOWN} {5 SPACES} {RVS}={OFF]} MOV 


ES SHIP RIGHT“ zrem 128 
PRINT" {DOWN} {5 SPACES} {RVS}:{OFF} MOVES SHIP 
LEFT“ srem 161 

PRINT" {DOWN} {5 SPACES}{RVS} SPACE BAR {OFF} 
{SPACE]MOVES SHIP DOWN" rrem 184 
PRINT" {DOWN} {4 SPACES} {RVS} A {OFF} DESTROYS 
MAGNETOS WHEN YOU ARE ” :rem 166 
PRINT" {DOWN} {5 SPACES]}ENERGIZED AND POSITION 
ED DIRECTLY " srem 169 
PRINT" {DOWN} {5 SPACES]UNDERNEATH{2 SPACES}TH 
EM." zrem 42 
PRINT" {PUR} {2 DOWN}{5 SPACES]! {RVS}HIT ANY KE 
¥ TO BEGIN THE GAME{OFF}" rrem 238 
GET AS: IF AS = “" THEN 18275 srem 33 
RETURN rem 219 
333 
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A Beginner's Guide to 
Typing In Programs 


What Is A Program? 

A computer cannot perform any task by itself. Like a car 
without gas, a computer has potential, but without a program, 
it isn’t going anywhere. Most of the programs published in this 
book are written in a computer language called BASIC. BASIC 
is easy to learn and is built into all Commodore 64s. 


BASIC Programs 

Computers can be picky. Unlike the English language, which is 
full of ambiguities, BASIC usually has only one right way of 
stating something. Every letter, character, or number is signifi- 
cant. A common mistake is substituting a letter such as O for 
the numeral 0, a lowercase | for the numeral 1, or an uppercase 
B for the numeral 8. Also, you must enter all punctuation such 
as colons and commas just as they appear in the book. Spacing 
can be important. To be safe, type in the listings exactly as they 


appear. 


Braces and Special Characters 

The exception to this typing rule is when you see braces, such 
as {DOWN}. Anything within a set of braces is a special char- 
acter or characters that cannot easily be listed on a printer. 
When you come across such a special statement, refer to “How 
to Type In Programs.” 


About DATA Statements 

Some programs contain a section or sections of DATA state- 
ments. These lines provide information needed by the 
program. Some DATA statements contain actual programs 
(called machine language); others contain graphics codes. 
These lines are especially sensitive to errors. 

If a single number in any one DATA statement is 
mistyped, your machine could lock up, or crash. The keyboard 
and STOP key may seem dead, and the screen may go blank. 
Don’t panic—no damage is done. To regain control, you have 
to turn off your computer, then turn it back on. This will erase 
whatever program was in memory, so always SAVE a copy of 
your program before you RUN it. If your computer crashes, you 
can LOAD the program and look for your mistake. 
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Sometimes a mistyped DATA statement will cause an 
error message when the program is RUN. The error message 
may refer to the program line that READs the data. The error is 
still in the DATA statements, though. 


Get to Know Your Machine 

You should familiarize yourself with your computer before 
attempting to type in a program. Learn the statements you use 
to store and retrieve programs from tape or disk. You'll want 
to save a copy of your program, so that you won't have to type 
it in every time you want to use it. Learn to use your machine's 
editing functions. How do you change a line if you made a 
mistake? You can always retype the line, but you at least need 
to know how to backspace. Do you know how to enter reverse 
video, lowercase, and control characters? It's all explained in 
your computer's manuals. 


A Quick Review 

1) Type in the program a line at a time, in order. Press 
RETURN at the end of each line. Use backspace or the back 
arrow to correct mistakes. 

2) Check the line you’ve typed against the line in the book. You 
can check the entire program again if you get an error when 
you RUN the program. 


338 


Cre Gre eee epee eer ert Gr Or es ere ee ele. eee Ge ee he o 


pe ae ae es aD ae 2 so a 1 aw ae eo ee so a ee 


Appendix 3 7! 


How to Type In Programs 


To make it easy to know exactly what to type when entering 
one of these programs into your computer, we have established 
the following listing conventions. 

Generally, Commodore 64 program listings will contain 
words within braces which spell out any special characters: 
{DOWN} would mean to press the cursor down key. 

{5 SPACES} would mean to press the space bar five times. 

To indicate that a key should be shifted (hold down the 
SHIFT key while pressing the other key), the key would be 
underlined in our listings. For example, S would mean to type 
the S key while holding the SHIFT key. This would appear on 
your screen as a heart symbol. If you find an underlined key 
enclosed in braces (e.g., {10 N}), you should type the key as 
many times as indicated (in our example, you would enter ten 
shifted N's). 

If a key is enclosed in special brackets, [<>], you should 
hold down the Commodore key while pressing the key inside the 
special brackets. (The Commodore key is the key in the lower- 
left corner of the keyboard.) Again, if the key is preceded by a 
number, you should press the key as many times as necessary. 

Rarely, you'll see a solitary letter of the alphabet enclosed 
in braces. These characters can be entered by holding down 
the CTRL key while typing the letter in the braces. For 
example, {A} would indicate that you should press CTRL-A. 

About the quote mode: you know that you can move the 
cursor around the screen with the CRSR keys. Sometimes a 
programmer will want to move the cursor under program 
control. That’s why you see all the {LEFT}’s, {HOME}’s, and 
{BLU}'s in our programs. The only way the computer can tell 
the difference between direct and programmed cursor control 
is the quote mode. 

Once you press the quote (the double quote, SHIFT-2), 
you are in the quote mode. If you type something and then try 
to change it by moving the cursor left, you'll only get a bunch 
of reverse-video lines. These are the symbols for cursor left. 
The only editing key that isn’t programmable is the DEL key; 
you can still use DEL to back up and edit the line. Once you 
type another quote, you are out of quote mode. 

You also go into quote mode when you INSerT spaces into 
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a line. In any case, the easiest way to get out of quote mode is 
to just press RETURN. You'll then be out of quote mode and 
you can cursor up to the mistyped line and fix it. 


When You 
Read: Press: See: 
ceur) [arr] Pa 


{HOME} 


we) aor] [erg | 
ach 


(DOWN } 
{LEFT} 


{RIGHT} feo-cesn onl 
we) CE] 
(OFF ] CTRL [> ] a 
Lae = 
(wHT } CTRL [: } 
tot Fem] Oy 
om fC) i 
on a] 
tem) om] CO] 
{BLU} CTRL & 
(YEL} CTRL TT] 
340 


When You 
Read: 


€1] 
k23 
£33 
E43 


Press: 
COMMODOR 


COMMODOR' 
COMMODOR 
COMMODOR 


COMMODOR 


COMMODOR 


AISI EILI-E) 


AEEEEEEEEIAIALT 


A CE eC ee COE COC Grr EP Ene 
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Screen Location Table 


ROW 
0 SeceRSRnGEEe 
1064 Se eeenee 
a an 
5 
10 
15 
20 
anne an an 
on Pee 
24 = 1984 EEE EERE EEE EEE EEE E+ 


0 5 10 615 06200 oe 5 9 
COLUMN 


BEE Appendix D 
Screen Color Memory Table 


ROW 


O 55296 COC 
Pape FL tt tt htt ten 


Ht a et =n 
BGRAEE REESE Pt 
562 REE CECE ee Coe 
s6256 (TT TT TTT Terre ery eee ey ree TT TT Tr 


0 5 100 15 2 28 30 35 39 
COLUMN 
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Color Values Table 


Value To POKE For Each Color 
Low nybble High nybble Select multicolor 

Color color value colorvalue color value 

Black 0 0 8 

White 1 16 9 

Red 2 32 10 

Cyan 3 48 11 

Purple 4 64 12 

Green 5 80 B 

Blue 6 96 14 

Yellow 7 112 ib 

Orange 8 128 _ 

Brown 9 144 _ 

LightRed 10 160 = 

Dark Gray 11 1% ad 

Medium 

Gray 12 192 — 

Light Green 13 208 - 

Light Blue 14 224 - 

LightGray 15 240 = 

Where to POKE Color Values For Each Mode 
Bit or 

Made* bit-pair _ Location Color value 

Regular text 0 53281 Low nybble 
1 Color memory Low nybble 

Multicolor Go 53281 Low nybble 

text 01 53282 Low nybble 
10 53283 Low nybble 
11 Color memory Select multicolor 

Extended 00 53281 Low nybble 

color text # 01 53282 Low nybble 
10 53283 Low nybbie 
11 53284 Low nybble 

Bitmapped 0 Screen memory Low nybble + 
1 Screenmemory High nybble+ 

Multicolor oC 53281 Low nybble 

bitmapped 01 Screenmemory High nybble+ 
10 Screen memory Low nybble + 
11 Color memory Low nybble + 


* For all modes, the screen border color is controlled by POKEing 
location 53280 with the low nybble color value. 

# In extended color mode, bits 6 and 7 of each byte of screen 
memory serve as the bit-pair controlling background color. 
Because only bits 0-5 are available for character selection, only 
characters with screen codes 0-63 can be used in this mode. 

+ In the bitmapped mades, the high and low nybble color values 
are ORed together and POKEd into the same location in screen 
memory to control the colors of the corresponding cell in the 
bit map. For example, to control the colors of cell 0 of the bit 
map, OR the high and low nybble values and POKE the result 
into location 0 of screen memory. 
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ASCII Codes 
ASCII CHARACTER 
2 WHITE 
8 DISABLE 
SHIFT COMMODORE 
9 ENABLE 
SHIFT COMMODORE 
B RETURN 
4 LOWERCASE 


19 HOME 
20 DELETE 
28 RED 
29 CURSOR RIGHT 
30 GREEN 
31 BLUE 
32 SPACE 
33 t 

34 # 

35 # 

36 $ 

37 % 

38 & 

39 : 

40 ( 

41 ) 

42 * 

43 + 

44 , 

45 = 

46 ; 

47 / 

48 0 

49 1 
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oe) 

on 5 ZSSPOEIOL) 
q) 
m7 


Gi 


f7 
£2 
f4 
f6 
£8 


SHIFTED RETURN 
UPPERCASE 
BLACK 
CURSOR UP 
REVERSE VIDEO OFF 
CLEAR SCREEN 
INSERT 
BROWN 
LIGHT RED 
GRAY 1 
GRAY 2 
LIGHT GREEN 
LIGHT BLUE 
GRAY 3 
PURPLE 
CURSOR LEFT 
YELLOW 
CYAN 
SPACE 
i 
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CHARACTER 
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ASCII 
200 
201 
202 
203 
204 
205 
206 
207 
208 
209 
210 
211 
212 
23 
214 
215 
216 
217 
218 
219 
220 
221 
222 
223 
224 
225 
226 
227 
228 
229 
230 
231 
232 
233 
234 
235 
236 
237 
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CHARACTER 


DUNO O0O0S Ss Zee PORROeOSOONZD SoA 
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ASCII CHARACTER 
238 


239 
240 
241 
242 
243 
244 
245 
246 
247 
248 
249 
250 
251 
252 
253 
254 
255 


AIBOWE ODO SR Osa oe) 


0-4, 6, 7, 10-12, 15, 16, 21-27, 128, 
130-132, and 143 are not used. 
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Screen Codes 
Uppercase and Lower- and Uppercase and Lower- and 
POKE Full Graphics Set Uppercase POKE Full Graphics Set Uppercase 

0 @ @ 31 = = 

1 A a 32 -space- 

F B b 33 ! : 

3 Cc c 34 i . 

4 D d 35 # # 

5 E e 36 $ $ 

6 F f 37 % % 

7 G g 38 & & 

8 H h 39 : : 

9 I i 40 ( ( 
10 j 41 ) ) 
11 K k 42 % . 
12 L | 43 + + 
13 M m 44 , , 
14 N n 45 - - 
15 O oO 46 : 
16 P p 47 i / 
17 Q q 48 0 0 
18 R r 49 1 1 
19 S s 50 2 2 
20 T t 51 3 3 
21 U u ae 4 4 
22 V v 53 5 5 
23 Ww w 54 6 6 
24 xX x 55 7 7 
25 Y y 56 8 8 
26 Z Z 57 9 9 
27 [ [ 58 : : 
29 l ] 60 < < 
30 t 7 61 ~ = 
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Uppercase and Lower-and Uppercase and = Lower- and 

POKE Full Graphics Set Uppercase POKE FullGraphicsSet Uppercase 
62 99 
63 100 
101 
102 
103 
104 
105 
106 
107 
108 
109 
110 
111 
112 
113 
114 
115 
116 
117 
118 
119 
120 
121 
122 
123 
124 
125 
126 
127 
128 - 255 reverse video of 0-127 


O 


SSCP ODID OS CEH BAD owe ORO 
BSCS O00 WSO BOSS 


WMO RN <x Sc cH mOVOZECA-H-TommINeS[]J~ v 


-space- 


OS GARSe- SHOR DEEDSBOONYD AGMeADOUdReIM~ » 


uA 
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Commodore 64 Key Codes 


Key Keycode Key Keycode 
A 10 6 19 
B 28 7 24 
Cc 20 8 27 
D 18 9 32 
E 14 0 35 
F 21 + 49 
G 26 - 43 
H 29 £ 48 
I 33 CLR/HOME 51 
J 34 INST/DEL 0 
K 37 = 57 
L 42 @ 46 
M 36 . 49 
N 39 t 54 
Oo 38 : 45 
P 41 7 50 
Q 62 = 53 
R 17 RETURN 1 
$ 13 : 47 
T 22 44 
U 30 ! 55 
v 31 CRSRTS 7 
Ww 9 CRSR 2 
X 23 fl 4 
Y 3 £3 5 
Z 12 £5 6 
1 56 {7 3 
2 59 SPACE 60 
3 8 RUN/STOP 63 
4 11 NO KEY 
5 16 PRESSED 64 


The keycode is the number found at location 197 for the current 
key being pressed. Try this one-line program: 
10 PRINT PEEK (197): GOTO 10 


Values Stored at Location 653 

Code Key(s) pressed 

0 {No key pressed) 

1 SHIFT 

2 Commodore 

3 SHIFT and Commodore 

4 CTRL 

5 SHIFT and CTRL 

6 Commodore and CTRL 

7 SHIFT, Commodore, and CTRL 
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Reference Books of Interest 


Commodore 64 Programmer's Reference Guide. Indianapolis: 
Commodore Business Machines, Inc., and Howard W. Sams and 
Co., Inc., 1982 


COMPUTE!’s First Book of Commodore 64 Sound and Graphics. 
Greensboro, N.C.: COMPUTE! Publications, Inc., 1983 


COMPUTE! First Book of Commodore 64 Games. Greensboro, N.C.: 


COMPUTE! Publications, Inc., 1983 

COMPUTE!'’s First Book of Commodore 64. Greensboro, N.C.: 
COMPUTE! Publications, Inc., 1983 

Heilborn, John. COMPUTE!s Reference Guide to Commodore 64 
Graphics. Greensboro, N.C.: COMPUTE! Publications, Inc., 1983 


Leemon, Sheldon. Mapping the Commodore 64. Greensboro, N.C.: 
COMPUTE! Publications, Inc., 1984 

Mansfield, Richard. Machine Language for Beginners. Greensboro, 
N.C.: COMPUTE! Publications, Inc., 1983 
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The Automatic Proofreader 


“The Automatic Proofreader” will help you type in program 
listings in this book without typing mistakes. It is a short 
error-checking program that hides itself in memory. When acti- 
vated, it lets you know immediately after typing a line from a 
program listing if you have made a mistake. Please read these 
instructions carefully before typing any programs. 


Preparing the Proofreader 

1. Using the listing below, type in the Proofreader. Watch 
out for typing an | instead of a 1, or an O instead of a 0, extra 
commas, etc. 

2. SAVE it on tape or disk at least twice before running it for 
the first time. If you mistype the Proofreader, it may cause a 
system crash when you first run it. By SAVEing a copy before- 
hand, you can reLOAD it and hunt for your error. Also, you'll 
want a backup copy of the Proofreader. Future COMPUTE! 
Books as well as COMPUTE!'s Gazette will use the Proofreader. 

3. RUN the Proofreader. It will be POKEd into a relatively 
safe area of memory, the cassette buffer. 

4. Type RUN to activate the Proofreader. If you ever need 
to reactivate it, just enter the command SYS 886 and press 
RETURN. 


Using The Proofreader 

Most of the listings in this book have a checksum number 
appended to the end of each line, for example “:rem123”. The 
only exceptions are some of the one-line listings. Don’t enter 
this statement when typing in a program. It is just for your infor- 
mation. The rem makes the number harmless if someone does 
type it in. It will, however, use up memory if you enter it, and 
it will confuse the Proofreader, even if you entered the rest of 
the line correctly. 

When you type a line from a program listing and press 
RETURN, the Proofreader displays a number at the top of your 
screen. This checksum number must match the checksum number in 
the printed listing. If it doesn’t, it means you typed the line 
differently than the way it is listed. Immediately recheck your 
typing. Remember, don’t type the rem statement with the 
checksum number; it is pubished only so you can check it 
against the number which appears on your screen. 
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The Proofreader is not picky with spaces. It will not notice 
extra spaces or missing ones. This is for your convenience, 
since spacing is generally not important. But occasionally 
proper spacing is important, so be extra careful with spaces, 
since the Proofreader will catch practically everything else that 
can go wrong. 

There's another thing to watch out for: if you enter the line 
by using abbreviations for commands, the checksum will not 
match up. But there is a way to make the Proofreader check it. 
After entering the line, LIST it. This eliminates the abbrevia- 
tions. Then move the cursor up to the line and press RETURN. 
It should now match the checksum. You can check whole 
groups of lines this way. 

When you're done with the Proofreader, disable it by 
Eat RUN/STOP-RESTORE (hold down the RUN/STOP 

and press RESTORE). If you need it again, enter SYS 886. 
It will then be ready once again to act as your personal typing 
aid. However, sometimes the Proofreader can be wiped out of 
memory. In this case, you'll have to reLOAD the Proofreader 
from tape or disk. 


Automatic Proofreader 


168 PRINT"{CLR}PLEASE WAIT...":FPORI=886T01018: READ 
A: CK=CK+A3; POKEI, A:NEXT 

116 IF CK<>17539 THEN PRINT"{DOWN}YOU MADE AN ERRO 
R":PRINT"IN DATA STATEMENTS. ":END 

128 SYS886:PRINT" {CLR} {2 DOWN] PROOFREADER ACTIVATE 
D."sNEW 

886 DATA 173,036,903,201,158,208 

892 DATA @01,996,141,151,8083,173 

898 DATA 037,983,141,152,063,169 

994 DATA 158,141,836,093,169, 883 

91% DATA 141,937,963,169,908,133 

916 DATA 254,096,832,087, 241,133 

922 DATA 251,134,252,132,253,808 

928 DATA 201,813,249,@17, 201,932 

934 DATA 248,965,824,101,254,133 

948 DATA 254,165,251,166, 252,164 

946 DATA 253,040,896,169,913,032 

952 DATA 214, 255,165,214,141, 251 

958 DATA 903,286, 251,083,169,090 

964 DATA 133,216,169,019,032,219 

978 DATA 255,169,818,032, 218,255 

976 DATA 169,658,032, 219, 255,166 

982 DATA 254,169,006,133,254,172 
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Appendix J 


988 DATA 151,093,192,087,208, 886 
994 DATA 632,285,189,876,235,083 
1000 DATA 032, 265,221,169,932,832 
1896 DATA 210,255,632,210,255,173 
1812 DATA 251,683,133,214,976,173 
1818 DATA 883 
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Index 


address 11 
ADSR envelope 259, 262-65 
setting 264-65 
AND operator, in bit manipulation 90-94 
animation 2-30, 119-34 
different from movement 22, 103-4 
in Joust 22 
Apple computer 16-17 
artificial intelligence 32, 33 
ASCT codes 51, 52 
table 343-46 
assembler program 16 
Asterids 27, 36, 40, 113, 305, 311 
point inflation and 38-39 
Astrosmash 172 
Atari computer 16-17 
attack (sound) 264 
“Automatic Proofreader” program 351-53 
“Avoid the Ship” program 187-90 
modification 190 
“Back and Forth Dragon’ program 119-22 
background colors 45-49 
band pass filter 271 
BASIC language 
located in ROM 12 
why slow 16 
“Beeps” program 266 
Berserk 32, 33, 315 
bit 
defined 10 
in character patterns 70-73 


bit manipulation, in multicolor mode 89-94 


bit-pairs 
in multicolor character mode 95-96 
in multicolor sprites 151-52 

bitmap block 13 

bitmapped mode 14 

border colors 45 

“Border” program 54-55 

Breakout 2 

Burger Time 34 


defined 10 

in character patterns 70-73 
“Card Invaders” program 306-10 
cassette buffer 213 
cassettes, cheap ones work better 9 
Centipede 28 
character memory 14 

indexed by screen code 70 

location 69-70 
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moving 74-76 
testrictions 7576 
character patterns 70-74 
characters, redefining 29 
character set 49 
amemory block 13 
seealso “character memory” 
character set flipping 122-23 
example programs 123-28 
CHR¢ function 51 
“Checkerboard” program 58-59 
color memory enhancement 65 
Cobra 128 
collisions 235-53 
detection 235 
in Centipede 31 
in Joust 23 
sprites and 246-53 
variables and 31 
PEEK and 31, 58, 235 
color memory 49, 62-66 
PEEK and POKE and 63 
relation to screen memory 62 
“Colorpeek” program 64-65 
color TV 10 
color values table 342 
combining characters 59 
PRINT and 85 
Commodore 64 Programmer's Reference Guide 
144 
Commodore 64 User's Guide 9 
compromise, in game design 2 
COMPUTE?!'s First Book of Commodore Sound 
and Graphics 87 
control matrix 197-98 
conventions, variable names 78 
“Crusade” 315-25 
cursor 
moving with PRINT 60-61 
custom characters 69-99 
Datassette 9 
DATA statements 
cautions with 337 
custom characters and 78, 81-82 
decay (sound) 264 
Defender 27, 40, 128, 195, 315 
“Diagonal Movement” program 174-76 
Dig-Dug 36, 37, 40, 305, 311 
disk drive 9 
documentation 21-22, 41-42 
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Donkey Kong 27, 29, 32, 34, 37, 40, 104, 113, 
257, 311 
Donkey Kong Jr. 29, 32, 40, 113 
ease of understanding 
importance in programs 295-98 
end routines, sample 291-92 
enemies, intelligent 
in Joust 24 
levels of 32 
“Falling Blocks” program 173-74 
farewells 283, 290-92 
“Fillin” program 57-58 
filters, sound 27173 
demonstration programs 272-73 
Firebird 28 
‘Flickering Stars” program 128-34 
frequency (sound) 259 
“Frequency Change” program 266 
Galaga 28, 37 
Galaxians 28, 40 
game design 21-42 
different from programming 7 
game programming, different from design 
7 


gate bit (sound) 259 
Gorf 305 
graphics characters 69 
graph paper9 
high pass filter 271 
homing pattern 32, 33 
sprites and 186-90 
ideas 27-28 
IFTHEN GOSUB 31 
illusions of speed 115-18 
incentives to play again 
in Joust 25-26 
instructions 283, 286-89 
importance of 286 
samples 287-88 
intelligent sprites, philosophy of 186 
interest-increasing techniques 36-37 
in Joust 25 
interest-maintaining techniques 
bonus turns 40 
incentives 38 
increasing difficulty 36-37 
new scenery 37 
point inflation 38-39 
scoring 38 
sound 40-41 
story rewards 40 
unpredictability 35-36 
vanity beard 39 
introductions 283-86 
code last 283 


sample 284 
sound in 285-86 
invisible objects 47-48, 250-53 
detection program 252-53 
Joust game 34, 40, 195 
analyzed 21-26 
artificial intelligence and 33 
joystick 206-12 
machine language and 220-22 
movement with 207-12 
reading 206-7 
sprites and 209-12 
Kangaroo 33, 34, 38, 40, 311 
Kernal 12 
keyboard 195 
reading 196-98 
key code 196 
controlling movement with 196-98 
sprite movement and 201-3 
table 349 
kilobyte 10 
levels of difficulty 288-89 
example 289 
“Little Boxes” program 112-13 
low pass filter 271 
machine language 12 
cassette buffer and 213 
defined 15-16 
joystick and 220-22 
movement with 212-29 
SAVE before RUNning 337 
sprites and 223-29 
“Magneto” 325-33 
main loop 30-31 
programming for speed and 298-99 
memory, economical use of 295 
memory blocks 12-14 
mindless pattern 32-33 
Missile Command 27, 36, 38, 40, 311 
missiles 305-311 
defined 305 
looping with player movement 306 
problems with 305 
“ML Character Keyboard Controller’ 
program 214-16 
expanded demonstration 216-17 
‘Mission: Nova!” program 236-40 
sound effects 276-78 
“Move and Customize” program 84 
“Move Character Set” program 83-84 
movement 
controlling 195-232 
different from animation 22, 103-4 
in Joust 22 
wraparound 104-9 
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Mr. Do 305, 311 
multicolor character mode 94-99 
bit-pairs in 95-96 
“Multicolored Forest” program 97-98 
multicolor mode 15, 89-99 
enabling 153 
multiple movements 113-15 
neighborhood kids, useful for game 
ing & 
“One Note” program 261-62 
ON/GOSUB 31 
“OnOlf” program 47-48 
originality, importance of 27-28 
OR operator, in bit manipulation 91-94 
other people’s programs, uses of 5-6 
Pac-Man 29, 33, 34, 37, 38, 40, 257-58, 315 
paddles 229-32 
sprites and 231-32 
pages of memory 10-11 
patience, importance of 5 
“Patterns” program 73-74 
PEEK command 11-12 
collisions and 31 
defined 50 
personalization 292 
pixels 29, 52 
player movement 30-31 
playfield 
in Joust 22 
pocket calculator, uses of 9 
POKE command 
character movernent and 198-201 
defined 49-50 
sprites and 14 
“POKE Movement Demonstration” 
program 107 
discussion 105-9 
Pang 195, 229 
“PRINT Character Movement” program 
203-5 
“Printscreen” program 61-62 
PRINT statement 
disadvantages 110 
movement and 109-11 
scrolling and 129 
useful in graphics 59-62 
program documentation, importance of 
298 
program portability 17 
programmable characters 15 
programming habits, importance of 296-97 
programming techniques 295-300 
psychology 35 


RAM, defined 11-12 
“Random Notes” program 267-68 
tandom numbers 56-57 
random screen displays 55-57 
“Raygun” sound effect program 269-70 
reflexes, human 33 
release (sound) 264 
reversed characters 93-94 
ring modulation 268-71 
RND function 182 
Robotron 315 
ROM, defined 11-12 
ROM character set 75, 82-83 
Scramble 128, 305 
screen 14 
screen codes 51-52 
index character memory 70 
table 347-48 
screen color memory table 41 
“Screendemo” program 46-47 
screen design 45-66 
“Screenfill” program 51 
screen location table 341 
screen memory 49-53 
organization of 52-53 
reading 53 
relocating 63-64 
screen memory block 12-14 
screen movement 128-30 
screen seam 176-82 
scrolling 110 
programmed 128-30 
shape matrix 78-82 
“Ships” program 86-87 
SID register 260-61, 278 
SID sound chip 12, 15 
organization 258-59 
6502 chip 16-17 
6510 microprocessor Il, 16 
sound effects, sample 278-80 
Sound Interface Device chip, see SID chip 
sound 
background 273-74 
filtering 27173 
in Joust 26, 257 
introduction using 285-86 
uses of 257-58 
Space Invaders 2, 32, 113, 172 
player movement and 30 
sound in 257 
unpredictability in 36 
“Spark” program 59-60, 244-46 
speed, programming for 295, 298-300 
main loop and 298-99 
single timer and 299-300 
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Sprite memory 143 
“Sprite #1" program 149 
“Sprite Parade” program 159-67 
sprite pattern block 13 
sprite POKE table 145 
sprite priorities 171-72 
sprites 14-15, 85, 113, 137-91 
defined 137 
drawing 138-43 
enabling 146-47 
expanding 150-51 
locating 143-44 
machine language and 222-29 
paddles arid 229-32 
positioning 147-49 
sprites, colliding 246-53 
sprites, intelligent 85-91 
sprites, moving 171-91 
sprites, multicolor 151-58 
sprites, random moving 182-85 
“Star-Eater” program 241-43 
“Starfield” program 55-56 
story, in joust 26 
strings 59 
subroutines, sound 275-78 
delays with 275 
sustain (sound) 264 


SYS command 214 

TAB function 61 

Tempest 2, 37, 288 

testing 8 

“Thirty-two Custom Characters” program 
87-88 

Tron 28 

“Ultrafont’ character editor 87 

variables 31 

Venture 27, 37 

VIC-II video chip 
color changes and 48-49 
located in ROM 12 
programming notes 301 
video bank selection and 301-2 

video banks 302 

video bank selection 301-2 

video black 75 
moving 76-77 

video block codes 76-77 

video memory, reconfiguring 7778, 130-31 

video memory block 13-14 

voice 258 

volurne 259 

wave form 259 

Zaxxon 128 
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If you've enjoyed the articles in this book, you'll find 
the same style and quality in every monthly issue of 
COMPUTE!’s Gazette for Commodore, 


For Fastest Service 
Call Our Toll-Free US Order Line 
800-334-0868 


In NC call 919-275-9809 


COMPUTE!s @&2E7?RPE 


P.O. Box 5406 
Greensboro, NC 27403 


My computer is: 
[] Commodore 64 [J VIC-20 [] Other 
Di 02 a3 


) $20 One Year US Subscription 
1] $36 Two Year US Subscription 
[] $54 Three Year US Subscription 


Subscription rates outside the US: 

(1 $25 Canada 

L_) $45 Air Mail Delivery 

[] $25 International Surface Mail 

Name 

Address 

City State Zip 
Country 


Payment must be in US Funds drawn on a US Bank, international Money 
Order, or charge card. Your subscription will begin with the next avail- 
able issue. Please allow 4-6 weeks for delivery of first issue. Subscription 
prices subject to change at any time. 


(_] Payment Enclosed LJ VISA 


_] MasterCard (_] American Express 
Acct. No. Expires / 
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COMPUTE! Books 


P.O. Box $406 Greensboro, NC 27403 


Ask your retailer for these COMPUTE! Books. If he or she 
has sold out, order directly fromm COMPUTE! 


For Fastest Service 
Call Our TOLL FREE US Order Line 
800-334-0868 
in NC calt 919-275-9609 
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Machine Language for Beginners $1495" 
Home Energy Applications $14.95° 
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COMPUTE!s First Book of VIC Games $12.95° 
COMPUTE!'s First Book of 64 $12.95° 
COMPUTE! First Book of Atari $12.95" 
COMPUTE!s Second Book of Atari $1295" 
COMPUTE!s First Book of Atori Graphics $12.95" 
COMPUTE!'s First Book of Atari Games $12.95" 
Mapping The Atari $14.95" 
Inside Atari DOS $19.95" 
The Atari BASIC Sourcebook $12.95" 
Programmer's Reference Guide forTl-99/44 $44.95" _ 
COWMPUTE's First Book of Ti Games $12.95" 


Every Kid's First Book of Robots and Computers § 4.95T 
The Beginner's Guide to Buying A Personal 


Computer § 3.957 
" Add $2 shipping ond handling. Outside US add $5 air mail: $2 
surface mail. 
t Add $4 shipping and handling. Outside US add $5 air mai: $2 
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Creating Your Own Game 
You want to create your own games, but you're not sure just 
how to begin. After all, game writing can be one of the most chal- 
lenging programming tasks. Whether you are an advanced pro- 
Pramimer, or pust sta rting out, you'll find many valuable, useful 
techniques and sugpestions here. This book —a guide foranyone 


who has thought of desiening and writing a game program on the 
Commodore 4 — shows vou how. 


Here are just a few of the topics covered: 

* Custom character sets 

* Sprite creation and movement 

* Animated praphics 

* Title screens, instructions, and farewells 

* Sound 

* Joystick and keyboard controls 

« Machine language movement routines 

* How to develop an idea 

* Tips on getting real speed in BASIC programs 


ISBN 0-942586-36-1 
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